-X 



öS 100, 
Sfr. 14, 


SONDERHEFT 2/1985 


selbst pro grammiert 

Kompletter 45seitiger Kurs 

Für j eden etwas: 
Vom Fantasy- bis f 


★ Taktiken, Tips & Tricks 

★ Viele komplette Lösungswege 
























Sans 11# 












Abenteuer total 

Warum haben Abenteuerspiele in der 
letzten Zeit einen immer größer wer¬ 
denden Anhängerkreis gefunden? 
Weil sie logisches Denkvermögen, 
Fantasie, Ausdauer und Kreativität för¬ 
dern und fordern. Abenteuerspiele 
sind wie geschaffen für den Heimcom¬ 
puter, oder besser, wurden erst durch 
diesen möglich. Gründe genug, um ein 
ganzes Sonderheft dieser Kategorie 
der Freizeitbeschäftigung mit dem 
Computer zu widmen. 

Im Gegensatz zu Schieß-, Action-, Arcade- oder Sportspie¬ 
len, bei denen hauptsächlich die motorischen Fähigkeiten 
des Spielers gefragt sind und die schon nach relativ kurzer 
Zeit eine gewisse Monotonie hervorrufen, fesseln interes¬ 
sante Adventures oft über Monate hinweg. Sie schlüpfen 
dabei in die Rolle eines Schatzsuchers, Piraten, Archäologen, 
Forschers, Weltraumreisenden, Ritters oder Prinzen. Vielfäl¬ 
tige Gefahren lauern auf Sie: feuerspeiende Drachen, hinter¬ 
hältige Zwerge, feindliche Gaiaxienbewohner, heimtückische 
Fallen, verschrobene Professoren, undurchdringliche Urwäl¬ 
der, rätselhafte Schlösser, hungrige Ureinwohner oder ein¬ 
fach verbohrte Mitspieler. 

All denen gilt es Paroli zu bieten. Begeben Sie sich mit uns 
in die faszinierende Welt der computerisierten Abenteuer. 

Dazu haben wir dieses Sonderheft in vier Abschnitte unter¬ 
teilt: 

— ein kompletter Kurs zur Programmierung eigener Aben¬ 
teuerspiele, 

— sieben fertige Abenteuerlistings zum Abtippen, 

— viele Lösungen zu professionellen Abenteuerspielen 

— und allgemeine Hinweise, wie Abenteuerspiele zu lösen 

sind. 

Der Kurs ist sowohl für Anfänger als auch Profis geeignet. 
Es wird Ihnen schrittweise gezeigt, wie Sie eigene Ideen für 
ein Abenteuerspiel finden, diese ausfeilen, an die konkrete 
Ausarbeitung herangehen, die Ideen in kompakte Programm- 
module umsetzen und schließlich ein vollständiges Adven- 
ture selbst programmieren. 

Es werden dabei einige sehr interessante Programmier¬ 
techniken vermittelt, die Sie unter anderem mit der String¬ 
verarbeitung, der Analyse ganzer Sätze, dem modularen Auf¬ 
bau eines Programms und der bool'schen Algebra vertraut 
machen sollen. Als Autor dieses Grundkurses konnten wir 
den Entwickler des deutschen Abenteuerspiels Gordon 
Saga gewinnen. Er plaudert aus seiner Trickkiste der Aben¬ 
teuerspiel-Programmierung. Wenn Sie den Adventure-Kurs 
gründlich durchgearbeitet haben, sind Sie in der Lage, selbst 
gute Abenteuerspiele zu programmieren. Voraussetzungen 
sind nur Grundkenntnisse in Basic und die Bereitschaft, das 
Gelernte in die Tat umzusetzen. 

Gleichsam als Anschauungsmaterial werden im zweiten Teil 
sieben Abenteuerspiele zum Abtippen geliefert. Darunter 
befindet sich auch Zauberschloß, das erste in Deutschland 
veröffentlichte Abenteuerlisting. Die restlichen sechs Adven¬ 
tures sind bisher unveröffentlichte Listings der Spitzen¬ 



klasse. »Odyssee — Kampf der Bruderschaft« fällt etwas aus 
der Reihe. Es handelt sich dabei um ein Rollenspiel, eine 
Untergruppe der Adventures. Doch lassen Sie sich über¬ 
raschen. Diese Listings wurden unabhängig vom Kurs ent¬ 
wickelt, jedes hat seine spezifischen Stärken und Schwä¬ 
chen. Durch genauen Vergleich des im Kurs Gelernten, und 
dem in den Listings Realisierten, können Sie die Vorteile der 
unterschiedlichen Methoden für eigene Programme verwen¬ 
den. 

Alle Listings, sowohl die des Kurses, als auch die Aben¬ 
teuerspiele sind mit einer speziellen Prüfsumme versehen, 
wie Sie sie bereits vom 64’er Stammheft kennen. Dadurch 
reduziert sich die Fehlerquote beim Eintippen erheblich. 
Lesen Sie sich also vor dem Eintippen irgendwelcher Listings 
den Artikel über den Checksummer 64 aufmerksam durch. 

Der dritte und vierte Teil des Sonderheftes »Abenteuer¬ 
spiele« wendet sich an die oft verzweifelten Besitzer von käuf¬ 
lich erworbenen, professionellen Adventures. Nun hat man 
sich also »Gruds in Space« oder »Ultima III« besorgt, und 
kommt und kommt einfach an einer bestimmten Stelle nicht 
weiter. Auch Freunde oder Bekannte, die das selbe Spiel 
besitzen, können nicht helfen. Für all jene, die entnervt, mit 
zerwühltem Haar, der Verzweiflung und dem Aufgeben nahe, 
seit Monaten vor dem Adventure sitzen, haben wir im dritten 
Abschnitt Schritt-für-Schritt-Lösungen von bekannten Aben¬ 
teuerspielen gesammelt. Wie diese Lösungen eingesetzt 
werden, bleibt jedem selbst überlassen. Er kann sie in einem 
durchspielen, dann ist der Reiz ein für allemal weg, oder er 
nimmt sie her, um über eine für ihn besonders heikle Stelle 
hinwegzukommen, und dann denn Rest des Weges wieder 
allein zu gehen, oder es zumindest zu versuchen. Der vierte 
Abschnitt gibt dazu wertvolle, allgemeine Tips. 

Für wen ist dieses Sonderheft gedacht? 

Sici.~. für alle, die sich sowieso für Abenteuerspiele inter¬ 
essieren. Aber auch jenen, die bisher mit einer gewissen 
Skepsis dieser Sorte von Spielen gegenüberstanden sei 
wärmstens empfohlen, einmal »reinzuriechen«. Dann natür¬ 
lich für alle, die zwar Adventures gerne spielen, aber noch nie 
daran gedacht haben, selbst welche zu programmieren. Viel¬ 
leicht kommen Sie durch dieses Sonderheft auf den Ge¬ 
schmack. 

Welche weiteren Sonderhefte sind geplant? 

Die 64'er-Redaktion macht die Sonderhefte nicht aus 
»Spaß an der Freud’«, sondern weil der Wunsch einer kompri¬ 
mierten Abhandlung über ein bestimmtes Thema von vielen 
Lesern geäußert wurde. Bei uns bestimmen Sie, was im 64’er 
Stammagazin erscheint, und welche Schwerpunkte als Son¬ 
derheft in allen Details behandelt werden sollen. Daher der 
Aufruf an alle Leser: Teilen Sie uns Ihre Vorstellungen über die 
nächsten Sonderhefte mit. Sie entscheiden, über welches 
Thema, sei es nun Drucker, DFÜ, Spiele, Massenspeicher 
(Diskettenlaufwerk und Datasette), Anwendungsprogramme, 
Grafik, Musik, Tips & Tricks, Hardware-Erweiterungen, etc., 
wir das nächste Sonderheft machen werden. (aa) 


Listing-Service 

Auch an die Leser, die zu wenig Zeit oder Geduld zum 
Abtippen der oft sehr umfangreichen Listings haben, 
wurde wieder gedacht. Alle Listings (Kurs und Abenteuer¬ 
spiele) sind auch auf Diskette erhältlich. 

Bitte verwenden Sie für Ihre Bestellung die beigefügte 
Ftostscheck-Zahlkarte zur Überweisung des Rechnungs¬ 
betrags. Sie erleichtern uns die Auftragsabwicklung und 
Sie sparen sich die 3,— DM Versandkosten! 

Bestell-Nr.: L685 S2 / DM 34,90 
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Großer Adventure-Programmierkurs 

Unser Abenteuerspiel-Programmierkurs versetzt Sie in die 
Lage, selbst Abenteuerspiele zu erstellen. Der Autor des pro¬ 
fessionellen Abenteuerspiels »Gordon Saga« hat tief in seine 
Trickkiste gegriffen, um Ihnen die Programmierarbeit zu 
erleichtern. In diesem Kurs wird gezeigt, wie man Ideen fin¬ 
det, entwickelt, ausbaut und sie in die Tat, sprich Programm, 
umsetzt. Im Verlauf des Kurses werden Programm-Module 
entwickelt, die Sie in eigene Abenteuerspiele übernehmen 
können. So wird auch ein Analyse-Modul entwickelt, das die 
Eingabe ganzer Sätze ermöglicht. Ein Satz wie zum Beispiel 
»Geh nach Norden und töte den Drachen mit dem Schwert« 
bereitet dem Computer mit diesem Modul keine Probleme. 

Seite 7 




Adventure 2000 — 

Die Jagd nach der Rakete 

Der Erde droht der dritte Weltkrieg. Der Präsident der Ver¬ 
einigten Staaten beauftragt Sie, den Ernstfall zu verhindern. 
Sie sollen die Atomrakete, die den Krieg auslösen wird, finden 
und entschärfen. Hilfe erhalten Sie von einem Chinesen. 
Viele Gefahren und fremde Länder liegen auf Ihrem Weg. 
Nicht zuletzt wird es auch ein Wettlauf mit der Zeit. 

Dieses Abenteuerspiel erlaubt die Mehr-Wort-Eingabe. 

Seite 65 



Quasimodo, Herrscher der Kartanen 

Durch dieses Abenteuerspiel werden Sie in das Land der 
Fantasie entführt. Hier herrscht der Diktator Quasimodo. Das 
Volk der Kartanen beauftragt Sie, den Despoten zu finden und 
zu vernichten. 

Durch einen Geheimgang gelangen Sie in das Gewölbe des 
Herrschers. Auf dem Weg zu Quasimodo begegnen Ihnen 
Leichen, Monster und sogar ein Polizist. 

Dieses Abenteuerspiel ist ein Beispiel, wie man auch mit 
einfachen Mitteln ein spannendes Abenteuer realisieren 
kann, ohne daß der Spielspaß leidet. 

Seite 76 


Mario, die unheimliche Mine 

Die Aufgabe, die sich Ihnen in diesem Abenteuer stellt, 
besteht nicht aus der Vernichtung eines Diktators oder dem 
Finden eines Schatzes. Sie müssen »lediglich« eine Höhle 
durchqueren. Doch stellen Sie sich das nicht so einfach vor. 
Orks, eine Spinne und der Ralbog versuchen Sie aufzuhalten. 

Wem die Namen Mario, Ork und Ralbog bekannt Vorkom¬ 
men, der täuscht sich nicht. Die Mine Mario ist der Zwergen- 
mine Moria aus Tolkiens »Herr der Ringe« nachempfunden. 
Ein gutes Beispiel, wie eine Literatur-Vorlage in ein Abenteu¬ 
erspiel umgewandelt werden kann. 

Seite 80 
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Zeittunnel — 

Flucht in die Gegenwart 

Aus dem heimischen Wohnzimmer gelangen Sie durch 
einen Zeittunnel in die Zukunft. Sie finden sich auf dem 
Kristall-Planeten wieder. Es sind größtenteils nur Maschinen 
und Computer vorhanden. Kein Wunder, daß Sie sich nach 
Ihrem bequemen Sessel zu Hause sehnen. Doch zwischen 
Ihnen und Ihrem Wohnzimmer liegen einige Safes, die Sie 
knacken müssen, und natürlich viele spannende Abenteuer. 

Seite 93 



Crantor — Bedrohung aus dem All 

Es geschah einst in ferner Zukunft, als ein garstiger 
Möchte-gern-lmperator namens Crantor die Andromeda- 
Galaxis erobern wollte, indem er sämtliche Imbißstuben zer¬ 
stören ließ. Das hypergalaktische Imbißdepot beauftragte Sie, 
den Jäger des verlorenen Hamburgers, den garstigen Impe¬ 
rator mitsamt seiner Wochenendbasis in handliche Einheiten 
zu zerlegen. Starten Sie mit Ihrer Untertasse. 

Dieses Abenteuerspiel ist ein gutes Beispiel für die Ver¬ 
knüpfung von Geschicklichkeitsspiel und Adventure. 

Seite 102 



Odyssee — Kampf der Bruderschaft 

Dieses Programm ist ein besonderer Leckerbissen! Es 
gehört zu einer Untergruppe der Abenteuerspiele, den Rol¬ 
lenspielen. Als erste Zeitschrift ist es uns gelungen, einen 
Rollenspiel-Autoren für Sie zu gewinnen. 

Die Reise führt Sie in das Land des Zauberers Saruman. 
Viele Gefahren liegen auf Ihrem Weg, aber keine Angst, Sie 
werden von Angehörigen Ihrer Bruderschaft unterstützt. Sie 
durchqueren scheinbar unendliche Weiten und einige Dörfer 
und Städte. Wenn Ihnen Flüsse oder Gebirge den Weg ver¬ 
sperren, verzweifeln Sie nicht. Es gibt für alles eine Lösung. 

Dieses Spiel zeichnet sich durch sehr gute Grafik, mit eige¬ 
nem Zeichensatz, und durch gutes Scrolling aus. 

Seite 111 
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Kurs 


Abenteuer 

selbst 

programmiert 

Abenteuerspiele auf dem Commodore 
64 gehören mittlerweile zu den belieb¬ 
testen Freizeitbeschäftigungen mit 
einem Computer. Dieser Kurs wird Sie 
in die Lage versetzen, nahezu profes¬ 
sionelle Abenteuerspiele selbst zu 
programmieren. Alles was Sie brau¬ 
chen ist ein bißchen Basic-Erfahrung, 
gute Ideen, viel Fantasie und Spaß am 
Programmieren. 

Eine unheimliche Stille liegt in der Luft... 

Sie befinden sich in einem großen Raum, in dessen Mitte 
auf dem kalten Steinboden ein kleiner roter Teppich liegt. Eine 
kleine Fackel, die an der Wand in einer Halterung steckt, 
beleuchtet den Raum nur spärlich. Am Boden liegt ein zwei 
Meter langes stabiles Holzbrett. 

Während Sie sich umschauen, fällt plötzlich ein schweres 
Eisenfallgitter hinter Ihnen herunter und versperrt den ein¬ 
zigen Ausgang. 

Alle Ihre Versuche, das Fallgitter zu heben oder einen ge¬ 
heimen Ausgang zu finden, scheitern. Mit großem Schrecken 
vernehmen Sie plötzlich ein lautes Rattern — die Zimmer¬ 
decke bewegt sich langsam, aber sicher nach unten. Erst 
jetzt bemerken Sie die spitzen Eisenstangen, die von der 
Decke herunterragen! Sie erinnern sich sofort an den Zauber¬ 
ring, den ein Monster verloren hatte, nachdem Sie es getötet 
hatten. Sie greifen in Ihre Tasche, holen den Ring heraus und 
stecken ihn sich an den Finger. Sie drehen den Ring mit der 
Hoffnung, daß er Sie durch seine Zauberkraft befreien kann, 
aber es passiert nichts. Inzwischen hat sich die Decke bis auf 
etwa drei Meter Höhe gesenkt! Ihr nächster Gedanke ist das 
stabile Brett, Sie klemmen es zwischen Boden und Decke. 
Sie atmen auf, als Sie feststellen, daß das Brett die Decke, 
jedoch nicht das Rattern zum Stillstand bringt. Aber ihre Freu¬ 
de hat ein schnelles Ende, als das Brett dem ungeheueren 
großen Druck der Decke nachgibt und zerbricht. Die Decke 
ist nun so weit unten, daß Sie nicht mehr aufrecht stehen kön¬ 
nen. In letzter Sekunde kommt Ihnen schließlich der rettende 
Gedanke: Sie stürzen auf den kleinen roten Teppich zu... 

Dies könnte eine von vielen Action-Szenen eines Aben¬ 
teuerspiels sein, wie Sie es vielleicht schon bald selbst 
schreiben werden. 

Was ist ein Abenteuerspiel oder englisch »Adventure« 
eigentlich? Eine einfache Antwort hierfür wäre zum Beispiel: 
«Das Gegenteil von einem Ballerspiel.« Während bei dem 
»Baller-«, »Weltraum-« oder »Grafik-« Action-Spiel flinke Fin¬ 
ger und ein starrer Blick zum Bildschirm nötig sind, bezieht 
sich ein Adventure mehr auf scharfen Verstand. 

Wer ein Adventure spielen will, muß viel Fantasie und Ein¬ 
fühlungsvermögen mitbringen. Bei einem Adventure stellt der 
Computer ein Fenster in eine andere Welt dar, deren Grenzen 
und Gesetze vom Programmierer gesetzt werden. 


Am besten läßt sich das Prinzip eines Abenteuerspiels an¬ 
hand eines Rollenspiels erklären. 

Diese Rollen- beziehungsweise Fantasierollenspiele sind 
besonders in England unter dem Titel Dungeons & Dragons 
(Höhlen und Drachen) verbreitet. Diese Rollenspiele können 
sich manchmal über ein ganzes Wochenende hinziehen. 

Wie ist solch ein Rollenspiel aufgebaut? 

Da gibt es zum einen den Dungeon-Master (Höhlenmei¬ 
ster). Dieser ist der Ersteller des Spiels und somit auch der 
Spielleiter. Den einzelnen Spielern werden Charaktere wie 
Zauberer, Fee oder Zwerg etc. zugeteilt. 

Außerdem gibt es Nichtspielercharaktere. Dies sind zum 
Beispiel Monster und Kreaturen, die in dem Spiel auftreten; 
auch sie werden vom Höhlenmeister gelenkt. Der Höhlenmei¬ 
ster ist der absolute Schiedsrichter. Er verteilt während des 
Spiels die Punkte. Falls sich im Spiel eine besondere Situation 
ergibt, so muß er improvisieren, um den Spielern gerecht zu 
werden. 

Dies fordert besonders große Fantasie und Ideenreichtum 
von ihm. Ein Rollenspiel könnte folgendermaßen ablaufen: 

Höhlenmeister: Ihr befindet euch in einer großen, trocke¬ 
nen Höhle mit Fackeln an den Wänden. 
Was macht ihr jetzt? 

Die Spieler beraten sich nun. 

Sprecher der Spieler: Wir untersuchen die Höhle genauer. 
Der Höhlenmeister schaut nun in seinen Plänen und Notizen 
nach, ob in der Höhle sonst noch etwas zu finden ist. 

Höhlenmeister: Ihr entdeckt eine Geheimtür. Was nun? 
Die Spieler beraten sich. 

Sprecher der Spieler: Wir öffnen die Tür und lassen unse¬ 
ren stärksten Mann vorausgehen. 

An diesem Beispiel können Sie die Aufgaben des Höhlen¬ 
meisters erkennen. Unser Ziel soll nun sein, den Computer 
als Höh .imeister arbeiten zu lassen. Hierzu geben wir ihm 
Pläne, Tabellen etc., aus denen er ersehen kann, welche 
Antworten er uns geben soll. 

Das Problem hierbei ist, daß der Computer auch ein wenig 
an den Plänen, die wir ihm geben, manipulieren und während 
des Spiels improvisieren soll, damit keine Langeweile beim 
Spieler aufkommt. 

Bevor wir uns an dieses Problem wagen, müssen wir ler¬ 
nen, wie man Pläne erstellt, also wie man sich ein Spiel¬ 
konzept ausdenkt. 

Sie können Ihren Computer also ruhig ausschalten, sich in 
einen bequemen Sessel zurücklehnen und aufmerksam die 
folgenden Kapitel lesen... 

1. Kapitel: 

Die Speicher-Grenzen — oder wieviel 
Abenteuer paßt in den C 64 ? 

Im Prinzip gibt es nur zwei Faktoren, die uns beim Erstellen 
von Abenteuerspielen einschränken: Zum einen die Grenzen 
unserer Fantasie und zum anderen die Speicherkapazität 
unseres C64. 

Wieviel Abenteuer paßt in 38 KByte? Mit dieser Frage wol¬ 
len wir uns nun einmal beschäftigen. 

Vorweg möchte ich jedoch sagen, daß Sie Ihre Fantasie 
niemals aus Angst vor Speicherplatzmangel einschränken 
sollten. 

Sollten Sie die Idee zu einem gigantischen Spiel haben, 
dann kürzen Sie es keinesfalls so lange, bis es in den C 64 
paßt. Teilen Sie es lieber in mehrere Programme auf, die nach¬ 
einander geladen und gespielt werden. Die Antwort auf die 
Frage hängt hauptsächlich von der Art des Spiels ab. Wir 
unterscheiden folgendermaßen: 

a) Spiele mit überwiegend Grafik (Grafik-Adventure) 

b) Spiele mit überwiegend Text (Text-Adventure) 
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Bei Grafikabenteuerspielen findet man für jeden Raum ein 
Bild. Unter diesem Bild ist ein kleines Textfenster zur Befehls¬ 
eingabe, ein Beispiel hierfür wäre das Adventure »Zauber¬ 
schloß« von Happy Software. Bei Textabenteuerspielen fin¬ 
det man anstelle von Bildern lange Texte, die jeden Raum aus¬ 
führlich beschreiben — das Bild entsteht also in der Fantasie 
des Spielers, der den Text liest. 

Als ich mein erstes Adventure schrieb, war ich besonders 
darauf aus, viele Räume zu haben, weil ich dachte, daß dies 
für ein sehr gutes Adventure unbedingt notwendig sei. Ich 
bemerkte jedoch bald, daß ich hier völlig falsch lag — das 
Resultat war ein Spiel mit 200 (!) Räumen, aber kaum Action. 
Alles was man konnte, war herumlaufen und laufen und lau¬ 
fen. Auch die Befehlsanalyse, auf die ich in einem später fol¬ 
genden Kapitel ausführlich zu sprechen kommen werde, war 
viel zu knapp geraten. 

Wir wollen unsere anfänglich gestellte Frage deshalb nun 
erweitern: Wie sieht ein gutes Adventure aus, und wie bringt 
man es auf 38 KByte? Das Wesentliche an jedem Adventure, 
das letztendlich auch über dessen Qualität entscheidet, ist 
der Komfort der Befehlseingabe und deren Analyse. Damit 
hängt natürlich auch der Wortschatz des Spiels zusammen. 
Damit es nun nicht zu kompliziert wird, ein Beispiel: 

Wir stellen uns einfach ein Abenteuerspiel des Titels X vor. 

Wenn X einen Befehl erwartet, fragt es »WAS NUN?«. 

Wir geben nun folgendes ein: »Nimm Schwert«. 

X antwortet uns: »Sie nehmen das Schwert«. 

Geben wir jedoch »Nimm das Schwert« ein, so antwortet X: 
»Ich kenne (das) nicht.« oder »Sie können (das) nicht neh¬ 
men« oder einfach »Das geht nicht«, etc. 

Was haben wir nun falsch gemacht? 

Für uns ist »Nimm Schwert« und »Nimm das Schwert« 
gleichermaßen verständlich, obwohl »Nimm das Schwert« 
besseres Deutsch ist. 

Warum versteht uns der Computer jedoch nicht? 

Ganz einfach — Die Befehlsanalyse von X sieht so aus: 

X versteht nur Befehle, die aus zwei Worten — 

VERB + OBJEKT bestehen. 

Wenn wir also »Nimm das Schwert« eingeben, so nimmt X 
an, daß das Wort »das« das Objekt des Befehls ist. 

X sieht in seiner Objekttabelle nach und kann »das« 
nicht finden. 

X versteht den Befehl also nicht! 


Spiel ohne Grenzen 


Sie sehen also, was mit guter Befehlsanalyse gemeint ist: 
Das Spiel soll Sätze wie »Nimm das Schwert, den Ring und 
das Brett und gehe nach Norden« verstehen. Hierauf werden 
wir später zurückkommen. 

Ein weiteres Kriterium für ein gutes Spiel ist das folgende: 
Der Spieler sollte viel mehr Möglichkeiten haben, als nur 
Gegenstände zu nehmen, zu verlieren und herumzulaufen. 
Gute Spiele müssen so viele Möglichkeiten bieten, daß der 
Spieler kaum an die Grenzen des Spiels stößt. Es ist nämlich 
äußerst frustrierend, wenn man ständig eine Antwort wie »Ich 
verstehe das nicht« nach einer Befehlseingabe erhält. 

Wenn wir ein gutes Adventure-Programm schreiben wol¬ 
len, so müssen wir dem Spieler die Möglichkeit bieten, sich 
nach Lust und Laune in unserer Abenteuerwelt auszutoben, 
auch dann, wenn der Spieler etwas macht, das mit der 
Lösung des Spiels kaum etwas zu tun hat. 

Stellen wir uns einmal einen Raum vor, in dem eine große 
Kiste und ein Fenster ist. 

Wir sollten dem Spieler dann folgende Dinge ermöglichen: 

— Er kann die Kiste öffnen und schließen (wenn wir wol¬ 
len, muß er dafür einen Schlüssel haben). 

— Er kann Gegenstände in die Kiste legen. 


— Er kann die Kiste mitnehmen, falls sie nicht zu schwer 
ist. 

— Er kann sich in der Kiste verstecken (falls sie groß 
genug ist). 

— Er kann die Kiste verschieben, wenn sie zu schwer zum 
Tragen ist. 

Aber Achtung: Der Spieler kann nur in die Kiste gehen, 
wenn alle Gegenstände, die er hat, mit in die Kiste passen. 
Ansonsten muß er sie vorher ablegen. 

— Er kann das Fenster öffnen und schließen sowie hin¬ 
aussehen. 

— Er kann aus dem Fenster springen, wenn ihm das Spiel 
zu langweilig wird, oder aus Angst vor einem Monster, 
das den Raum betritt. 

Sie sehen also, wie viele Möglichkeiten in der Ausgangssi¬ 
tuation (Kiste und Fenster) stecken. Falls die Kiste enorm 
groß ist, dann kann der Spieler sich vielleicht sogar mit einer 
Prinzessin, die er kurz zuvor gerettet hat, in ihr verstecken... 

Stichwort »Prinzessin« — Wie Sie sehen, sind lebendige 
Personen in einem guten Adventure nicht fehl am Platz. 

Allerdings ist es langweilig, wenn man nur auf Taubstumme 
trifft. Wenn Personen im Spiel Vorkommen, so sollten sie 
mehr können, als nur herumstehen oder wortlos hinter dem 
Spieler herrennen. Ein Spiel, welches ein gutes Beispiel im 
Bezug auf »selbstdenkende« Spielcharaktere abgibt, ist das 
englische Adventure »The Hobbit« von Melbourne House. 
Wer dieses Spiel kennt (wahrscheinlich jeder Adventure- 
Freak), weiß, was Thorin, Gandalf, Elrond, Bard, der Butler 
oder Smaug, der Drache, im Spiel alles selbständig treiben. 
Leider ist beim Hobbit auch einiges zu kritisieren: 

Sagt man seinem Freund Elrond »Lies die Karte«, so kann 
es manchmal Vorkommen, daß dieser einfach nein sagt. Auch 
kann es passieren, daß man von Monstern gefangen wird und 
der . auf die Rettung durch einen Freund wartet—manchmal 
kommt dieser jedoch nicht. 

Wir können also nun zusammenfassen, was ein gutes 
Adventure auszeichnet. 

1. Der Spieler sollte so viele (auch unsinnige) Möglich¬ 
keiten haben, daß ihm so wenig wie nur irgend möglich auf¬ 
fällt, daß das Spiel Grenzen hat. 

2. Das Spiel muß einen großen Wortschatz und eine groß¬ 
zügige Befehlsanalyse haben — das heißt, das Spiel soll nicht 
Worte allein erkennen, sondern den Sinn eines Satzes ver¬ 
stehen. 

3. Das Spiel sollte zu jedem Raum einen ausführlich 
beschreibenden Text haben. Grafiken sollten diesen Text ab 
und zu unterstützen — es sollte jedoch nicht so sein, daß ein 
Spieler erst rätseln muß, was die Grafik darstellt, bevor er den 
Sinn erkennt. Grafiken sind nur Ergänzungen zu einem guten 
Text — sie können ihn nicht völlig ersetzen. 

4. Wenn im Spiel Personen (Charaktere) auftreten, so soll¬ 
ten sie auch einen eigenen Willen haben, sowie sprechen 
und verstehen können. Dadurch besteht die Möglichkeit, 
eine lebendige Adventure-Welt zu erbauen und nicht eine 
tote, in der nur der Spieler umherläuft. 

Nehmen wir als Beispiel noch einmal den Raum mit der 
Kiste und dem Fenster: 

Angenommen, ein selbstdenkender Spielcharakter, wie 
ein Geist, kommt in diesen Raum, so hat er genau dieselben 
oder ähnliche Möglichkeiten wie der Spieler, wenn er sich in 
diesem Raum befindet. 

Wir spinnen einmal weiter... 

Angenommen, ein Geist betritt den Raum mit der Kiste (der 
Spieler ist gerade woanders). 

Der Geist sieht also die Kiste und beschließt, sich in dieser 
zu verstecken. Er öffnet die Kiste also, geht hinein und 
schließt sie von innen. Wenn der Spieler nun in den Raum 
kommt, so bieten sich jetzt viele neue Möglichkeiten. 

a) Der Spieler öffnet die Kiste: 
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— Der Geist erschreckt und flieht. 

— Der Geist erschreckt den Spieler zu Tode. 

— Die Kiste ist leer. Warum? Ganz einfach — dem Geist 
ist es zu langweilig in der Kiste geworden und er hat 
sie wieder verlassen, bevor der Spieler den Raum 
betreten hat, und ist nun bereits in einem anderen 
Raum. 

b) Der Spieler öffnet die Kiste nicht, bleibt aber im Zimmer: 
— Der Geist kommt aus der Kiste heraus... 

— Der Spieler hört plötzlich ein Schluchzen und Wei¬ 
nen. Warum? Ganz klar, der dumme Geist hat sich 
selbst in der Kiste eingeschlossen, beziehungs¬ 
weise diese ist zugeschnappt, er ist gefangen und 
bittet Sie, ihn herauszulassen. 

Der Spieler hilft dem Geist: 

I. Der Geist belohnt den Spieler großzügig 

II. Der böse Geist tötet den Spieler trotzdem 

c) Der Spieler gibt dem Geist einen Kuß: 

— Es passiert nichts. 

— Der Geist verschwindet empört. 

— Abrakadabra — der Geist war gar kein Geist, son¬ 
dern eine atemberaubend hübsche, verzauberte 
Prinzessin (Ist die Kiste enorm groß?). 

d) Der Spieler öffnet die Kiste und erwischt den Geist 

beim Flirten mit einer Hexe. 



Sie sehen also, wie viele Möglichkeiten, in der Situation 
»Kiste, Fenster, Geist und Spieler« stecken, und.ss gibt noch 
tausende mehr. 

Sicherlich haben Sie schon eigene Ideen ausgeheckt— 
was beweisen würde, daß Sie bereits Fortschritte machen. 

Falls Sie noch Anregung benötigen, so stellen Sie sich ein¬ 
fach noch eine zusätzliche Person zu unserer Ausgangs¬ 
situation vor. 

Was passiert, — wenn der Spieler auf diese Person trifft? 

— wenn diese Person auf den Geist trifft? 

— wenn sich die Person (zum Beispiel 
Hexe) und der Geist verbünden und 
gemeinsam gegen den Spieler Vor¬ 
gehen? 

Nun aber vorerst genug des Geredes über Geister, Kisten 
etc. Schließlich sind wir schon fast am Ende dieses Kapitels 
angelangt, und unsere Frage, wieviel Adventure denn nun in 
38 KByte passen, ist noch immer nicht beantwortet. 

Es hat natürlich seinen Grund, warum ich die Antwort auf 
meine Frage so lange hinausgezögert habe — ich weiß keine 
Antwort. 

Hoffentlich sind Sie mir nicht böse, aber die letzten Seiten 
sollten Ihnen nur begreiflich machen, warum eine konkrete 
Antwort unmöglich ist. 

330 ? 


Vielleicht fragen Sie sich jetzt, warum jemand überhaupt 
eine Frage stellt, wenn er selbt keine Antwort zu geben 
vermag. 

Auch dies hat seinen Grund! 

Gerade ein Anfänger beziehungsweise jemand, der zum 
ersten Mal ein Adventure schreibt, ist nicht oder nur sehr 
schlecht in der Lage, abzuschätzen, wieviel Speicher für das 
Spiel benötigt wird, das er sich ausgedacht hat. Dieses 
Abschätzen will auch gelernt sein. 

Doch dazu mehr, wenn wir den Computer einschalten und 
die ersten kleinen Programmteile entwickeln. 

2. Kapitel: Ohne Drehbuch kein Film 

Am ehesten kann man das Schreiben von Abenteuerspie¬ 
len wohl mit dem Drehen eines Films vergleichen. 

Während an einem Film jedoch viele mitarbeiten, müssen 
wir alle Arbeiten ganz alleine verrichten: Wir sind Drehbuch¬ 
autor, Regisseur, und Kameramann in einem, um nur die 
wichtigsten zu nennen. 

Lange bevor ein Filmregisseur zu drehen beginnen kann, 
braucht er zunächst eine Idee, was für einen Film er drehen 
will. 

Genauso muß der Programmierer eines Adventures zuerst 
eine Idee aufgreifen, aus der später das Spiel entstehen soll. 
Dies ist wahrscheinlich der schwierigste teil von allen. Es ist 
nicht leicht, ein wirklich neues und möglichst originelles 
Spielthema zu finden. Denken Sie hierbei nur einmal an die 
zahlreichen Spiele, bei denen eine Burg oder ein Schloß im 
Mittelpunkt steht: Zauberschloß, Burg des Schreckens, 
Schloß des Grauens etc. Genauso viele Spiele finden in Höh¬ 
len (Caves) statt. 

Sie sollten deshalb bei ihren Überlegungen ein Spiel 
anstrehen, das sich in einem ganzen Abenteuerland und 
nicht fn t.ner Burg'abspielt. 

Im Prinzip sind folgende Spieltypen möglich: 

— Märchen (Beispiel: Der Hobbit) 

— Science-Fiction 

— modernes Adventure (Beispiel: Dallas Quest) 

Unter »Märchen« versteht man ein Spiel mit Zauberern, 
Hexen, Drachen etc. Bei »Science-Fiction« könnte es sich um 
ein Weltraum- oder ein Zukunftsabenteuer handeln. 

Ein »modernes Adventure« spielt sich in unserer Zeit ab. 

Selbstverständlich können sich diese Themen auch über¬ 
schneiden, zum Beispiel wenn man mit einer Zeitmaschine 
reist. 

Alle Möglichkeiten ausführlich zu erläutern, würde den 
Rahmen dieses Kurses sprengen. Ich will jedoch nicht fort¬ 
fahren, ohne Ihnen als Beispiel einige Gedanken vorzufüh¬ 
ren. 

Angenommen, ich möchte ein Spiel schreiben, das sich in 
der Vergangenheit abspielt. Ich brauche also zu Beginn des 
Spiels eine Zeitmaschine, mit der der Spieler in die Ver¬ 
gangenheit reisen kann. Da es in der heutigen Zeit jedoch 
noch keine Zeitmaschine gibt, muß ich den Anfang des Spiels 
in die Zukunft verlegen. Unser erster Spielgedanke könnte 
sein: Im Jahre 2000 wird eine Zeitmaschine mit zwei Mann 
Besatzung in die Vergangenheit geschickt. So schön, so gut. 
Der Spieler gehört also zur Besatzung der Zeitmaschine. 
Damit er nicht alleine ist, geben wir ihm einen Begleiter, einen 
Wissenschaftler, mit auf den Weg (dieser Wissenschaftler 
wird im Programm als selbstdenkender Spielcharakter 
behandelt). Natürlich müssen wir dem Spieler auch eine Auf¬ 
gabe mit auf den Weg geben. Sein Ziel könnte sein, heraus¬ 
zufinden, warum die Dinosaurier damals ausgestorben sind. 

Damit hätten wir unseren ersten Gedanken — die Aus¬ 
gangssituation — abgeschlossen. Ist dieser erste Schritt 
getan, so ist es nicht mehr sehr schwer, weitere Gedanken 
auszuhecken. Unser Spieler fliegt in die Vergangenheit. Nun 
müssen wir uns ausdenken, was ihn dort erwartet. Vielleicht 
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trifft er auf Steinzeitmenschen, oder gar Außerirdische. Er 
könnte von den Steinzeitmenschen gefangen werden. Nun 
sind Sie an dem Punkt angelangt, bei dem Sie sich voll und 
ganz in Ihre Fantasie stürzen müssen. Sicherlich kommen 
dann zahlreiche Ideen, was dem Spieler alles passieren kann, 
und wie er es zu meistern hat. 

3. Kapitel: Von der Idee zum Spiel 

Lange bevor ein Spiel in ein Programm umgesetzt wird, 
muß es in Form von Skizzen und Tabellen nahezu völlig fertig 
vorliegen. 

Natürlich gibt es auch viele Programmierer, die sich an den 
Computer setzen und einfach drauflostippen — nach dem 
Motto erst Tippen, dann Denken. 

Selbstverständlich kann auf diese Weise nur äußerst selten 
ein vernünftiges Programm entstehen: 

Zum einen kommen Spiele dabei heraus, die so viele stilisti¬ 
sche und programmbedingte Fehler enthalten, daß sich ein 
Spielen kaum noch lohnt. Solche Spiele wandern dann in die 
Schubladen und werden schnell vergessen. Zum anderen 
wird beim Programmieren nach einiger Zeit der Überblick ver¬ 
loren, so daß Korrekturen am Programm nur noch sehr müh¬ 
selig vorzunehmen sind. Dann geht schnell die Lust am Wei¬ 
terprogrammieren verloren, und das Spiel wandert ebenfalls 
in die Schublade. 

Einige könnten nun einräumen, daß sie ihre Programme 
äußerst gut strukturiert haben und der Überblick somit 
gewährleistet ist. 

Das mag schon stimmen, soweit es sich um die Program¬ 
mierung eines Schießspiels etc. handelt. Jedoch aus eigener 
Erfahrung kann ich Ihnen versichern, daß es unmöglich ist, 
ein 38 KByte-Adventure bis auf die letzte Variable zu struktu¬ 
rieren — irgendwann findet man sich auch in der besten 
Struktur nicht mehr zurecht, außerdem sind strukturierte Pro¬ 
gramme oft viel länger als herkömmliche und verbrauchen 
somit den, besonders bei Adventurespielen, benötigten 
Speicherplatz. 

Natürlich möchte ich von Ihnen nicht verlangen, jedes 
Adventure vor der Umsetzung zum Programm bis ins letzte, 
klitzekleinste Detail auszuarbeiten. Sie sollen vielmehr erfah¬ 
ren, welche Unterlagen man stets beim Programmieren 
neben sich liegen haben sollte, um problemlos und schnell 
Änderungen am Spiel vornehmen zu können. 

Generell empfehle ich Ihnen für jedes Adventure ein Heft 
(Format A4) zu führen, in dem alle wichtigen Informationen 
und Tabellen zum Spiel enthalten sind. 

Nun aber zum eigentlichen Thema. Am Anfang aller Arbeit 
steht, wie schon die Überschrift des Kapitels verrät, die Idee. 

Wie kommt man nun aber zu einer guten, neuen Idee? 

Hierzu bietet es sich zunächst an, sich einmal auf dem 
Softwaremarkt umzuschauen und dann einige Adventures zu 
spielen. Gute Adventures die ich Ihnen empfehlen kann, 
wären zum Beispiel »The Hobbit«, »Ulysses« und »Enchan- 
ter«. Äußerst interessant ist auch »Gordon Saga«. Dieses 
Spiel enthält völlig neue Elemente und zeichnet sich außer¬ 
dem durch einen nahezu unerschöpflichen Wortschatz und 
unbegrenzte Spielmöglichkeiten aus. Natürlich sollen Sie 
diese Spiele nicht spielen, um die in ihnen enthaltenen Ideen 
in Ihrem eigenen Spiel zu kopieren — Sie sollen aus diesen 
Spielen lernen, wie andere Autoren ihre Ideen ausgebaut 
haben. Es macht auch nichts aus, wenn Sie an ein extrem 
schlechtes Adventure geraten, denn Sie werden aus den 
Fehlern dieser Spiele lernen und umzugehen, daß sich diese 
Fehler in den eigenen Spielen wiederholen. 

Oft wird unter einem Adventure ein Spiel verstanden, in 
dem wie in Märchen Zauberer, Zwerge, Feen und Monster 
auftreten. Leider ist dieser Gedanke kaum zutreffend. 

Unter Abenteuer sollte man vielmehr Erleben verstehen — 
Adventures sollten deshalb nicht nur Spiele sein, in denen 


der Spieler einen Zauberer besiegen oder Schätze finden 
muß. Ein Adventure ist einfach ein Spiel, das der Spieler 
selbst beeinflussen kann und dabei einiges erlebt. 

Sehen Sie sich doch einmal die folgenden Themen an: 

1. Ein kleiner Wanderzirkus kommt in die Stadt. In der 
Nacht bricht ein gefährlicher Löwe aus und macht die 
Stadt unsicher. 

Die Aufgabe des Spielers besteht nun darin, den Löwen 
zu finden und zu fangen. 

2. Auf einem riesigen Reiseschiff (ä la Traumschiff) befin¬ 
det sich eine Gräfin. Aus ihrer Kabine werden plötzlich 
die gesamten Juwelenschmuckstücke entwendet. Der 
Täter kann das Schiff erst verlassen, wenn es im näch¬ 
sten Hafen anlegt. 

Aufgabe des Spielers ist den Dieb zu entlarven, bevor 
die Schiffsreise beendet ist. 

3. Eine Flaschenpost wird gefunden, die eine Seekarte 
enthält, auf der eine bisher unbekannte Insel einge¬ 
zeichnet ist. 

Aufgabe des Spielers: Zur Insel reisen und sie erfor¬ 
schen. 

4. Aufgabe des Spielers: Per Autostop von Frankfurt nach 
Rom zu trampen. 

5. Man schreibt das Jahr 2002. Ein Raumschiff wird, mit 
tiefgefrorener Besatzung, zu einer langen Reise ins 
Weltall geschickt. Viele Jahre später landet das Schiff 
wieder auf der Erde, die sich völlig verändert hat. Der 
Spieler ist der Kommandant des Sternenschiffes. 
Aufgabe: Herausfinden, was mit der Erde geschehen 
ist. 

Diese fünf Themen sind Beispiele, wie die zündende Idee 
zu einem Spiel aussehen könnte. Ich habe solche Beispiele 
gewählt, die noch einen Bezug zur Realität haben — sich also 
in ui iserer Zeit und Welt abspielen könnten. 

Das einzige Problem besteht nur noch darin, diese zün¬ 
dende Idee zu haben. Glücklicherweise ist es einfach, sich 
Anregungen zu verschaffen. Es gibt zum Beispiel eine riesige 
Menge an spannenden Abenteuerbüchern. 

Ich möchte Sie auffordern, sich einmal in Büchereien und 
Bibliotheken oder Buchhandlungen umzusehen. Sie werden 
sicherlich ein Buch finden, von dem Sie sich Anregung zu 
einem Spiel versprechen. Empfehlenswert sind auch die 
Fantasy-Buchreihen der verschiedenen Buchverleger. 

Weitere Anregungen können Sie durch Kinofilme finden — 
denken Sie nur an die verschiedenen Filme, von denen 
bereits Programme entstanden sind (zum Beispiel »Der dun¬ 
kle Kristall« oder »Ghost Buster«). 

Wichtig ist, daß Sie wissen, daß es nicht nur auf die Aus¬ 
gangsidee ankommt und diese deshalb einzigartig gut sein 
muß, sondern vielmehr darauf, was Sie aus Ihrer Idee 
machen. Wir wollen uns die fünf Themen, die ich Ihnen vorge¬ 
stellt habe, nun noch einmal genauer betrachten: 

1. Auf den ersten Blick scheint in der Idee, »Spieler muß 
ausgerissenen Löwen fangen«, nicht allzuviel zu 
stecken. 

Sicher ist auf jeden Fall, daß der Spieler einige Aufgaben 
zu bewältigen hat, bevor er den Löwen fangen kann. 
Der Spielort: Eine große Stadt. Damit das Spiel nicht zu 
monoton wird (der Spieler also einfach alle Straßen der 
Stadt abläuft, bis er den Löwen findet), setzen wir noch 
einige Parks oder Grünanlagen in die StadL 
Um den Löwen zu fangen, braucht der Spieler einen 
Käfig und frisches Fleisch, um den Löwen anzulocken. 
Den Käfig kann er nur mit einem Lastwagen befördern, 
den der Spieler zum Beispiel mieten muß. Der Lastwa¬ 
gen braucht natürlich ab und zu Diesel. Alle diese Dinge, 
kosten jedoch Geld — und das hat der Spieler noch 
nicht. Vielleicht gibt es in der Stadt jedoch eine Spiel¬ 
hölle oder eine freundliche Bank, wo sich der Spieler 
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Geld leihen kann. Vielleicht gibt es aber auch ein paar 
Diebe, die auf das erworbene Geld scharf sind? Was 
passiert, wenn der Lastwagen unterwegs kaputt geht? 
Solche und viele andere kleine Zwischenfälle können 
dem Spieler widerfahren, bis er den Löwen endlich im 
Käfig hat. 

Sie müssen zugeben, daß sich mehr und mehr ein Spiel 
aus unserer bescheidenen Anfangsidee entwickelt. 
Natürlich müssen noch viele weitere Einfälle realisiert 
werden, bis man das Spiel als nahezu vollendet bezeich¬ 
nen kann. Je mehr man sich jedoch in die Materie ver¬ 
tieft, desto einfacher wird es, die Gedanken zu fassen. 

2. Lassen Sie uns noch einmal das zweite Beispiel 
betrachten. Der Spielort ist eindeutig ein Schiff — also 
Kabinen, Speisesaal, Aufenthaltsräume, Decks etc. Die 
Handlung kann man mit der eines Kriminalfalls verglei¬ 
chen. In dieser Art von Adventure müssen also viele 
Personen mitspielen, die alle Motive und Alibis haben. 
Der Spieler kann die Personen beschatten und befra¬ 
gen — er übernimmt in etwa die Rolle eines Detektivs. 
Während der Suche nach dem Täter kann zur Steige¬ 
rung der Spannung ein Mordanschlag Vorkommen (die¬ 
ser kann, muß aber nicht unbedingt gelingen) — zum 
Beispiel auch ein Mordanschlag auf eine andere Person 
auf dem Schiff (nicht den Spieler), die den Täter kennt 
und somit nach dessen Ansicht zu viel weiß. 

Ein Spiel dieser Art in ein Programm zu packen, ist 
durchaus möglich, jedoch auch relativ schwierig. Das 
Programm muß alle Personen (außer den Spieler) steu¬ 
ern. Die Personen müssen sich bewegen, handeln und 
auf den Spieler eingehen (reagieren) können. Wie man 
solche kniffligen Programmteile schreibt, erfahren Sie 
im Programmierteil. Zunächst sollten Sie sich bei Ihren 
ersten Adventures jedoch auf Spiele beschränken, in 
denen nur möglichst wenige Personen auftreten. 

3. Beispiel 3 ist typisch für ein Fantasie-Adventure. Durch 
eine Seekarte findet der Spieler den Weg zu einer 
unbekannten Insel. Man kann den Spieler — und damit 
das Adventure — gleich auf der Insel beginnen lassen, 
oder den Spieler erst eine Schiffsreise antreten lassen. 
Auf der Insel leben dann vielleicht noch längst für aus¬ 
gestorben gehaltenene Tiergattungen (Saurier), sowie 
Steinzeitmenschen. Auf der Insel kann es Höhlen¬ 
systeme, Flüsse, Dschungel, Berge, Seen und vielleicht 
auch einen Vulkan geben. Natürlich birgt die Insel ein 
Geheimnis, das der Spieler entdecken muß. Am ein¬ 
fachsten wäre es, einfach einen Schatz zu verstecken. 
Man kann dem Spiel jedoch auch Utopie verleihen: Der 
Spieler entdeckt im Inneren des Vulkans eine technisch 
hochentwickelte Apparatur, die die Lebewesen auf der 
Insel steuert — die Lebewesen erweisen sich hier als 
perfekte Roboter. Wer hat jedoch die Apparatur aufge¬ 
stellt, und welchen Zweck beabsichtigt er?—Außerirdi¬ 
sche? Ein verrückter Professor? Vielleicht ist die Insel 
nur eine Tarnung für eine geheime Raumschiff- 
Abschußstation. 

Anhand dieses Beispiels können Sie gut erkennen, wie 
man überraschende Effekte erzielt, durch die der Spie¬ 
ler, der eigentlich glaubt, er müsse nur einen vergrabe¬ 
nen Schatz finden, völlig verblüfft wird. 

4. Die Ausarbeitung dieses Themas erfordert besonders 
viel Einfalls- und Ideenreichtum. Auf den ersten Blick 
scheint auch in diesem Ausgangsthema nicht viel 
Abenteuer zu stecken. Tatsache ist jedoch, daß gerade 
diese Problematik uns extrem viele Möglichkeiten bie¬ 
tet. 

Sicherlich ist es langweilig, wenn der Spieler nur die 
Aufgabe hat, an der Straße zu stehen und auf ein Auto 
zu warten, das ihn mitnimmt. Am Anfang des Spiels wol¬ 


len wir den Spieler deshalb mit etwas Geld versehen 
und in ein Geschäft schicken, in dem er sich eine Ausrü¬ 
stung kaufen kann. In dem Geschäft gibt es alles — vom 
Schlafsack über Kleidung bis hin zur Zahnbürste. Unser 
Spieler ist also ausgerüstet und begibt sich zur Auto¬ 
bahn, von der er lostrampen will. 

Nun wird es Zeit, sich über den Fortgang des Spiels und 
dessen Aufbau Gedanken zu machen. 

Wir wollen einmal festlegen, daß der Spieler 8 Tage Zeit 
für sein Unternehmen hat. Des weiteren legen wir fest, 
daß der Spieler während des Spiels niemals umkommt. 
Er muß höchstens kapitulieren, wenn ihm das Geld aus¬ 
geht, er abends keinen günstigen Schlafplatz findet (er 
hat auf keinen Fall genug Geld für ein auch noch so billi¬ 
ges Hotel bei sich) oder das Essen knapp wird. 

Der Spieler steht also auf der Straße und hofft, daß ein 
Auto hält und ihn mitnimmt. Wenn ein Auto hält, sind fol¬ 
gende Dinge möglich: 

— das Auto fährt in Richtung Rom 

— das Auto fährt in eine abweichende Richtung 

Der Spieler hat nun die Wahl, ob er mitfahren will oder 
nicht. Wir lassen mehrere mögliche Routen zu — wel¬ 
che möglich sind, kann man leicht durch einen Atlas mit 
Reisekarte erfahren. 

Es ergeben sich hier also schon zahlreiche Kombina¬ 
tionsmöglichkeiten. Allerdings darf nicht alles dem 
Zufall überlassen werden. Wir wollen nun noch festle¬ 
gen, daß der Spieler immer von einer Großstadt zur 
anderen gelangt. Eine mögliche Route wäre 
Frankfurt—Nürnberg—München—Verona—Florenz- 
Rom. Übernachten kann der Spieler in öffentlichen 
Parkanlagen, Bahnhöfen etc. 

Nun müssen wir uns noch einfallen lassen, was ihm 
e'" ä zustoßen kann. Er könnte einen Teil seines Geldes 
verlieren oder es wird gestohlen. Er kann gute und 
schlechte Bekanntschaften machen. 

Sicherlich haben auch Sie schon Dinge erlebt, aus 
denen man ein Adventure machen kann. Ich will damit 
sagen, daß ein Adventure nicht unbedingt in einer ande¬ 
ren Welt oder Zeit ablaufen muß, um als Adventure aner¬ 
kannt zu werden — lassen Sie Ihrer Fantasie freien 
Lauf... 

5. Bei diesem Beispiel sollen Sie sich nun einmal selbst 
ein paar Gedanken machen. Versetzen Sie sich dazu 
einfach in die Lage des Spielers und verfahren Sie nach 
einem Gedankenschema, wie ich es in den letzten vier 
Beispielen vorgeführt habe. 

Nun möchte ich einmal ein Beispiel herausgreifen, an dem 
wir lernen wollen, welche Tabellen man erstellen muß und wie 
man eine Adventure-Karte zeichnet. 

Wir nehmen dazu Beispiel 3 — Die geheimnisvolle Insel. 
Den zündenden Gedanken hatten wir ja bereits — aber wie 
arbeiten wir ihn zum Spiel um? Jetzt gleich Aufgaben und 
Spielwitz zu suchen, ist sehr schwierig. Wir wollen uns des¬ 
halb zunächst einmal Gedanken über die Umgebung der 
Insel machen. 

Dazu denkt man einfach nach, welche Dinge auf einer Insel 
Vorkommen. Zum einen ist da der Strand — das soll später 
auch die Stelle der Insel sein, bei der das Spiel beginnt. Der 
Spieler rudert mit einem kleinen Boot vom großen Schiff aus 
zum Strand. Vom Strand aus könnte er vielleicht in einen tropi¬ 
schen Regenwald oder Dschungel gelangen. Außerdem soll 
es auf unserer Fantasie-Insel ein Gebirge geben (die Insel ist 
sehr groß), in dessen Zentrum ein riesiger Vulkan aufragt. 
Außerdem erstrecken sich mehrere Flüsse über die Insel, 
deren Quellen im Gebirge liegen. Wo Flüsse und Vulkane 
sind, muß es eigentlich auch heiße Quellen und Lagunen 
geben. 

Damit die Insel auch Leben erhält, soll sich auf ihr auch ein 
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kleines Dorf mit Eingeborenen befinden. Vielleichtauch meh¬ 
rere Dörfer unterschiedlicher Stämme, aber dies soll uns 
zunächst nicht so sehr beschäftigen. Was wir nun brauchen 
ist eine erste Skizze. Man nehme also einfach einmal ein Blatt 
Papier und Stifte und male dann ein Bild, das in etwa wie auf 
Seite 12 aussehen könnte. 

Es muß sich bei dieser ersten Skizze nicht um ein grafi¬ 
sches Meisterwerk handeln, an dem man stundenlang 
zeichnen muß. Es soll vielmehr ein Bild sein, das man mit 
einem Bleistift schnell auf ein Stück Papier kritzelt. Dieses 
Bild hat natürlich noch sehr wenig mit einer richtigen 
Adventure-Spielkarte gemeinsam. Die Größenverhältnisse 
auf dem Bild sind ebenfalls sehr vage. Es soll also nur ein Bild 
sein, das einen Überblick über die angestrebte Adventure- 
Landschaft darstellt. Man kann an ihm auch in etwa erkennen, 
wo was liegt. Bei der vorgestellten Skizze von unserer Insel 
sind folgende Interpretationen möglich: 

Ein riesiges Gebirge erstreckt sich über den westlichen Teil 
der Insel. Im Zentrum des Gebirges steht ein Vulkan. Vom 
Gebirge gehen auch mehrere Flüsse aus, die sich über die 
ganze Insel verzweigen. Einer dieser Flüsse mündet in einen 
großen See, der sich im östlichen Teil der Insel befindet. An 
einem der anderen Flüsse, der ins Meer fließt, liegt ein klei¬ 
nes Dorf mit Eingeborenen. 

Im nordwestlichen Teil, am Fuß des Gebirges, befindet sich 
eine riesige Mauer. Hinter der Mauer liegt ein Tempel ver¬ 
steckt. Der restliche Teil der Insel besteht aus Wäldern und 
Sümpfen. 

Sie haben sicher bereits erkannt, worin der Sinn unserer 
ersten Skizze liegt — man gewinnt einen bildlichen Eindruck 
über die Gegend, in der das Adventure später stattfinden soll. 
Des weiteren findet man im Rahmen der Bildbetrachtungen 
viele neue Ideen und Anregungen über den Verlauf des 
Adventures. 

Worüber wir uns bisher noch keinerlei Gedanken gemacht 
haben, ist der Spielwitz — sprich die Aufgaben, die der Spie¬ 
ler lösen muß. 

Der nächste Schritt besteht nun darin, die eigentliche 
Spielkarte zu entwerfen, mit deren Hilfe wir das Spiel später 
programmieren werden. Man kann darüber streiten, ob es 
besser ist, zuerst den Spielwitz und dann die Spielkarte aus¬ 
zuarbeiten oder umgekehrt. Ich halte es für sinnvoll, wenn 
man beides gleichzeitig behandelt, da Spielkarte und Spiel¬ 
witz sehr eng miteinander Zusammenhängen. 

Eines der größten Probleme ist das folgende: 

Wenn man die Spielkarte erst einmal ausgearbeitet hat, so 
ist es oft sehr schwierig und mühselig, später noch einmal 
Änderungen vorzunehmen. 

Während man jedoch das Spiel programmiert, kommen 
einem noch viele Ideen, die den Spielwitz betreffen und die 
man noch mit einbauen will. Deshalb muß die Spielkarte sehr 



sorgfältig und sauber gezeichnet werden, damit die Über¬ 
sicht nie verloren geht. 

Wie geht man nun beim Entwurf der Spielkarte vor? 

Die Gedankengänge zum Entwurf einer Spielkarte sind 
genau die Umkehrung derer, mit denen man ein Adventure 
löst. 

Sicherlich haben auch Sie schon einmal ein Adventure 
gespielt und sich dabei Notizen gemacht, wo was ist. Es gibt 
natürlich auch Spieler, die sich keine Notizen machen, im 
Spiel immer wieder hin- und herlaufen und die Orientierung 
und somit die Freude am Spiel schnell verlieren. 

Ein gewissenhafter Abenteurer, der ein Adventure bis zum 
Ende bestehen will, geht jedoch ganz anders vor — er zeich¬ 
net einen Lageplan zum Spiel. 

Wie macht er das? 

Wir gehen einmal vom Beginn eines Spiels aus. Der Com¬ 
puter beziehungsweise das Programm liefert seinen ersten 
Lagebericht, der so lauten könnte: 

SIE BEFINDEN SICH IN EINEM GROSSEN ZIMMER 

IM NORDEN BEFINDET SICH EINE TUER, DIE OFFEN IST 

MOEGLICHE RICHTUNGEN: S, N, O 
Nun macht sich der gewissenhafte Abenteurer seine erste 
Notiz, die so aussieht: 
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großes Zimmer 
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Er macht also ein Kästchen, in dem er mit einem kurzen 
Wort den jeweiligen Raum beschreibt. In diesem Fall also 
»großes Zimmer«. 

Von dem Kästchen gehen Pfeile in die verschiedenen mög¬ 
lichen Richtungen. Dabei ist es wichtig, daß auch Pfeile — 
nicht etwa nur Linien — markiert werden. Der Pfeil zeigt immer 
in die Richtung, in die man von diesem Raum aus gehen kann. 
Wenn man zum Beispiel nach Norden läuft, so ist es nicht 
sichergestellt, ob man anschließend durch Bewegung nach 
Süden wieder zum Ausgangsort gelangt. Deshalb also 
zunächst nur einen Pfeil. 

Der nächste Schritt besteht also darin, die einzelnen Rich¬ 
tungen auszuprobieren. Wir wollen einmal nach Osten 
gehen. 

Das Programm liefert daraufhin folgenden Lagebericht: 

SIE BEFINDEN SICH IN EINEM LANGEN GANG 

AM ENDE DES GANGES IST EIN KLEINES FENSTER 

MOEGLICHE RICHTUNGEN: W, O 
Damit können wir den Lageplan folgendermaßen ergänzen: 



Aus der Lageberichtserstattung des Programms geht her¬ 
vor, daß man nach Westen und nach Osten laufen kann (vom 
langen Gang aus). 

Logischerweise müßte man nun eigentlich wieder in das 
große Zimmer gelangen, wenn man zurück nach Westen 
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läuft. Wir wollen dies nur ausprobieren und laufen zurück in 
westliche Richtung — und tatsächlich gelangen wir wieder in 
das große Zimmer. Wir können also einen zweiten Pfeil in die 
Skizze einzeichnen. 



Sinnvoller ist es natürlich, anstelle der beiden Pfeile nur 
einen Pfeil mit zwei Spitzen einzuzeichnen. Also: 


t 



großes Zimmer 
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Lassen Sie uns jedoch auch den traurigen Fall betrachten, 
was passiert wäre, wenn wir nicht wieder in das große Zimmer 
gelangt wären. Dann wäre es schon etwas verwirrender 
einen vernünftigen Spielplan zu zeichnen. 

Es scheint viele Adventure-Programmierer zu geben, 
denen es eine wahre Freude bereitet, den Spieler durch un¬ 
logischen Pläne zu verwirren. 

Auch in einigen sehr guten Adventures, zum Beispiel »The 
Hobbit« wird dieses Verwirrspiel getrieben. Eigentlich 
schade, denn bei einem guten Adventure, das vom Spieler 
viel Ideenreichtum bis zur Lösung erfordert, kann es äußerst 
frustrierend für den Spieler sein, wenn der Spielplan völlig 
unlogisch aufgebaut ist. Deshalb auch mein Rat an die ange¬ 
henden Adventure-Programmierer: Schreiben Sie stets nur 
Adventures mit logischem Spielplan. Das Hauptziel eines 
Adventures soll schließlich sein, den Spieler zu unterhalten 
und nicht zu frustrieren. Der Spieler sollte so wenig wie nur 
irgend möglich vom Spiel abgelenkt werden, weder durch 
ständige Fehlermeldungen, die auf einen mangelhaften Wort¬ 
schatz des Spiels schließen lassen, noch durch einen Spiel¬ 
planaufbau, in dem man sich kaum zurechtfinden kann. Natür¬ 
lich gibt es auch Fälle, bei denen man tatsächlich nicht mehr 
umkehren kann, um wieder an den Ausgangsortzu gelangen. 

Dies ist dann der Fall, wenn 

— man in eine Grube hinabstürzt. 

— plötzlich ein Fallgitter herunterfällt und den Ausgang 
versperrt. 

— hinter dem Spieler plötzlich eine Tür zufällt, die sich 
nicht mehr öffnen läßt. 

Eine Szene, bei der ein Fallgitter herunterfällt, würde man 
folgendermaßen skizzieren: 


Hier wurde an dem Pfeil noch kurz vermerkt, warum eine 
Umkehr nicht möglich ist. Wir wollen festlegen, daß in einem 
Fall, bei dem eine Umkehr unmöglich ist, immer eine kleine 


Begründung neben den Pfeil geschrieben wird. Zu dieser 
Begründung genügt meistens ein einziges Wort, wie Fallgit¬ 
ter. 

Oftmals befinden sich Türen zwischen einzelnen Räumen. 
Diese Türen werden im Plan so skizziert: 



kleines Zimmer 
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großes Zimmer 



Wie Sie sehen, wird die Tür durch eine gestrichelte Linie 
dargestellt. Bei dieser Linie steht wieder eine Bemerkung: 
Schlüssel. 

Diese Bemerkung stellt also die Bedingung dar, mit deren 
Hilfe man durch die Tür gelangt: Man braucht den Schlüssel, 
um durch diese Tür gehen zu können. Im Fall einer magischen 
Tür, brauchte man vielleicht einen Zauberspruch oder bei 
einer elektronisch gesicherten Tür eine Identitätskarte. 

Steht jedoch keine Bemerkung neben der gestrichelten 
Linie, so heißt dies, daß man die Tür ohne weiteres passieren 
kann — sie stellt in diesem Fall also kein Hindernis dar. 

Lassen Sie uns nun folgenden Fall betrachten: 

Der Spieler stürzt in eine Grube, die er nur unter Zuhilfe¬ 
nahme eines Seils wieder verlassen kann. Hier sieht die 
Skizze so aus: 



Diese Skizze ist so zu verstehen: 

Wenn man vom großen Zimmer aus in südliche Richtung 
läuft, so stürzt man in eine Fallgrube, die man nur mit einem 
Seil wieder verlassen kann. Die Bedingung »Seil« steht hier¬ 
bei in einem großen Pfeil, der von der Grube zum großen Zim¬ 
mer führt. 

Man könnte die Bedingung auch neben einen einfachen 
Pfeil schreiben, durch den großen Pfeil ist der Sachverhalt 
jedoch besser ersichtlich. 

Aus diesem Beispiel läßt sich auch etwas lernen — man 
sollte den Spieler nie vor vollendete Tatsachen stellen (bezie¬ 
hungsweise in aussichtslose Lagen bringen). Es gibt zahlrei¬ 
che Adventures, die sich nach einer Bewegung des Spielers 
mit einem solchen Wortlaut melden: 

SIE SIND IN EINE FALLGRUBE GESTUERZT UND HABEN 

SICH DAS GENICK GEBROCHEN! 

WOLLEN SIE NOCHMAL SPIELEN? 

Solche Spiele spiele ich in der Regel nur einmal. 

Worin besteht der Witz eines solchen Falls? 

Da läuft der Spieler herum, ist der Lösung des Adventures 
auf der Spur und bekommt plötzlich die Meldung, daß er ver¬ 
loren hat. 




großes Zimmer 
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Bei einem guten Adventure sollte der Spieler nur auf Grund 
von eigenem Fehlverhalten verlieren. Dies müßte eigentlich 
das Grundmotto eines jeden Adventure-Autors sein. 

Damit wären wir schon fast am Ende der Lageplan-Grund¬ 
lagen. 

Scheuen Sie sich nicht davor, zehn Himmelsrichtungen zu 
verwenden - N, S, 0, W, NO, NW, SO, SW, RAUF, RUNTER 
— denn dadurch lassen sich viel interessantere Pläne erstel¬ 
len, als mit nur vier Himmelsrichtungen. 

Die Richtungen N, S, O, W, NO, NW, SO, SW werden auf der 
Lagekarte mit einfachen Pfeilen dargestellt. Die Richtungen 
RAUF und RUNTER hingegen mit Doppelpfeilen, damit keine 
Irrtümer auftreten können. 

Ein Beispiel: 



Anhand dieser Beispiele wissen Sie nun also, wie man 
Landkarten für Adventures zeichnet. 

Doch nun zurück zu unserem Inselbild. Wie setzt man diese 
Skizze denn nun in einen sinnvoll aufgebauten Lageplan um? 

Die Insel jetzt gleich in einen riesigen Lageplan umzuset¬ 
zen, ist nicht sinnvoll. Es empfiehlt sich nun erst einmal 
Gedanken über den Spielverlauf zu machen. 

Wir wollen davon ausgehen, daß sich der Spieler zu Beginn 
des Spiels auf dem Schiff befindet. Von dort aus begibt er 
sich mit Hilfe eines kleinen Ruderbootes zur Insel. Er kommt 
so also zum Strand der Insel. 

Nun muß er eine Wald- und Sumpflandschaft durchqueren, 
um zum Dorf der Eingeborenen zu gelangen. Das Dorf liegt, 
wie aus der ersten Skizze ersichtlich, an einem Fluß. Trotz¬ 
dem kann der Spieler mit seinem Ruderboot nicht vom Meer 
aus über den Fluß zum Dorf gelangen, da die Strömung zu 
stark ist und dem Meer entgegenfließt. Im Dorf der Einge¬ 
borenen, die friedlich sind, erfährt der Spieler ein Geheimnis, 
das so lauten könnte: 

»Der seit Jahren erloschene Vulkan im Nebelgebirge strahlt 
seit einigen Wochen ab und zu ein merkwürdiges Licht aus. 
Dies flößt den Eingeborenen große Angst ein. Neugierige, die 
sich auf den gefährlichen Weg durch das Nebelgebirge zum 
Vulkan begeben haben, sind nie mehr zurückgekehrt. Außer¬ 
dem berichtet eine alte Legende von einer riesigen, hunderte 
Meter langen Mauer, die sich irgendwo im nordwestlichen, 
unbewohnten Teil der Insel befindet. Niemand weiß, was sich 
hinter dieser Mauer verbirgt. Abenteurer haben erzählt, daß 
ein schwarzer, schneller Fluß durch die Mauern zum großen 
See fließt.« 

Sie müssen zugeben, daß dieses Geheimnis schon ziem¬ 
lich interessant ist. Was ist hinter der Mauer? Was ist mit dem 
Vulkan los? Wo sind die verschwundenen Abenteurer, die nie 
wieder heimgekehrt sind? 

Diese Frage wird sich der Spieler jetzt stellen — und er wird 
versuchen wollen, diese Geheimnisse (also das Abenteuer) 
zu lösen. 

Solche Einleitungen zu einem Adventure sind sehr emp¬ 
fehlenswert, da sie das Interesse des Spielers am Spiel 
steigern, obwohl sie nur sehr oberflächliche Informationen 
enthalten. 


In unserem Insel-Adventure wird die Einleitungsstory im 
Dorf der Eingeborenen gegeben — also während des Spiels. 
Sinnvoller ist es allerdings eine solche Einleitung an den 
Anfang des Spiels zu stellen, man könnte sie dann in ein 
separates Titelprogramm schreiben. Das heißt, der Spieler 
lädt erst die Einleitung in den Computer und liest sie. Ist die 
Einleitung abgelaufen, dann wird das eigentliche Spiel gela¬ 
den und gestartet. Dieser Tip gilt hauptsächlich für Data- 
setten-Anwender. Besitzern von Diskettenlaufwerken, die 
Spiele schreiben können, die selbständig Programmteile 
nachladen, stellt sich dieses Problem wohl kaum. 

Der Spieler kennt also nun die Geheimnisse, die er lüften 
will. Er weiß natürlich noch nicht, daß sich hinter der hohen 
Mauer ein Tempel verbirgt. Wir wissen bereits, daß der erste 
Weg, den der Spieler zurücklegen muß, der Weg vom Insel¬ 
strand zum Dorf der Eingeborenen ist. 

Aber wohin soll er von dort aus gehen? Im Prinzip haben wir 
noch zwei Möglichkeiten — das Nebelgebirge mit dem Vul¬ 
kan und die hohe Mauer. 

Ich muß hierbei anmerken, daß wir momentan nur den 
absolut richtigen Weg betrachten, also den Weg, den der 
Spieler verfolgen muß, um das Spiel so schnell wie möglich 
zu bezwingen. Irrwege werden im Moment noch nicht 
berücksichtigt. Dabei möchte ich noch klarstellen, daß der 
Spieler sich selbstverständlich auf der Insel frei bewegen 
kann — er kann, wenn er will, vom Dorf auch wieder durch den 
Dschungel zurück zum Strand, ins Boot steigen und zurück 
zum Schiff rudern. 

Nun aber zurück zum absolut richtigen Weg. Nehmen wir 
einmal an, der Spieler begibt sich anschließend über das 
Nebelgebirge zum Vulkan. 

Er ergründet dort das Geheimnis des Vulkans. Im Inneren 
des Vulkans befindet sich eine hochentwickelte, technische 
Fabrik, r e völlig automatisiert ist. Sie wird von Roboterskla¬ 
ven betrieben, deren Herr ein wahnsinniger Professor ist, der 
die Weltherrschaft an sich reißen will. 

Der Spieler ist also in der Fabrik eines Wahnsinnigen. Er 
erlebt dort wieder einige Abenteuer, und entdeckt schließlich 
einen Geheimgang, der unter dem Nebelgebirge hindurch 
zum Tempel hinter der Mauer führt. Der Spieler kommt also 
in den Tempel und muß dort wieder einige Nüsse knacken. 
Danach gelangt er über den schwarzen Fluß unter der Mauer 
hindurch zum großen See und von dort zum Strand und 
zurück zum Schiff — das Adventure ist gelöst. 

Buh, aufhören, könnten Sie jetzt vielleicht rufen, da unser 
Spielkonzept zwar schon sehr interessant klingt, jedoch 
noch keine Details und Action enthält. Wir sind bisher nur 
durch eine leere Landkarte gelaufen. Es wird bald Zeit, dar¬ 
über nachzudenken, welche Abenteuer der Spieler beste¬ 
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hen muß und in welchen Bereichen der Insel sie versteckt lie¬ 
gen (einige Andeutungen habe ich ja bereits gemacht). 

Vorher wollen wir jedoch eine neue Skizze zeichnen, oder 
besser gesagt unsere alte Inselskizze ein wenig überholen — 
sie in die Grundlandkarte umsetzen. Darunter versteht man 
eine Karte, die sehr grob nach dem vorgestellten Kästchen- 
und-Pfeil-Prinzip angefertigt wird. Diese Karte für unser Spiel 
sieht folgendermaßen aus: 


Diese Landkarte ist natürlich noch sehr oberflächlich, zeigt 
aber dennoch bereits viel deutlicher als unsere erste Zei¬ 
chenskizze, wie das Spiel aufgebaut ist. 

In der Landkarte sind fünf große Bereiche eingezeichnet und 
ihre Verbindung zueinander. Diese Bereiche sind Urwald, 
Nebelgebirge, Vulkan, Tempel und der große See. Ich habe 
also beim Anfertigen dieser Karte nichts anderes gemacht, als 
die Hauptgebiete der Insel in einzelne Blöcke zu fassen. Von 
solch einer Blockgebietskarte ist es viel leichter die eigentli¬ 
che Landkarte anzufertigen, als von der ersten Skizze. 

Als kleine Blöcke habe ich den Strand und das Schiff einge¬ 
zeichnet. Man kann also sagen, daß ein Blick um so mehr 
Räume enthält, je größer er ist. Zwischen den einzelnen 
Blöcken befinden sich einfache und doppelte Pfeile. Die einfa¬ 
chen Pfeile stellen die bereits besprochenen Verbindungen 
zwischen den einzelnen Räumen dar — in unserem Fall, Ver¬ 
bindungen zwischen den einzelnen Gebieten. Die Doppel¬ 
pfeile sind ebenfalls Verbindungspfeile — mit der Ausnahme, 
daß sie Bedingungen stellen. So kann man, anhand der Dop¬ 
pelpfeile, aus der Karte lesen, daß man nur über den Geheim¬ 
gang vom Vulkan zum Tempel gelangen kann. Des weiteren 
gelangt man vom Tempel nur über den Fluß zum großen See. 

Der nächste Schritt besteht nun darin, die einzelnen Ge¬ 
bietsblöcke in einzelne Räume zu gliedern — es entsteht also 
die komplette Spielkarte.Dieser Ausbau kann je nach Wunsch 
gering oder sehr komplex sein. 

Vielleicht interessiert es Sie, wie viele tatsächliche Räume 
die bekannten Adventures denn im einzelnen so haben. 


Das Adventure »The Hobbit« hat zirka 80 Räume. Allerdings 
ist nicht jeder Raum mit Action gefüllt. Bei etwa 25 Räumen 
erhält man als Raumbeschreibung immer wieder die Anwort 
»Sie befinden sich in einem dunklen Höhlensystem.«. Man 
muß oft lange Strecken zurücklegen, um zu den einzelnen Auf¬ 
gaben zu gelangen. Adventures, wie man sie aus Zeitschrif¬ 
ten vom Abtippen her kennt, haben eine durchschnittliche 
Raumanzahl von zirka 30 Räumen. 


Es ist sehr schwer, detaillierte Tips zu geben, wieviele 
Räume und wieviel Action man in ein gutes Adventure packen 
sollte. Als Faustregel könnte man vielleicht sagen, daß eine 
gute Relation zwischen Raumanzahl und Action etwa 1 zu 1 
betragen sollte. 

Um nicht allzu sehr vom Thema abzukommen, zurück zur 
Spielkarte. 

Hier der komplette Spielplan, das heißt ein Spielplan, wie 
man ihn zu diesem Spiel gestalten könnte. 

Ich habe mich bei diesem Plan nur auf einen kleinen Aufbau 
beschränkt, da ein Aufbau im Großen viel zu komplex zu erklä¬ 
ren wäre (siehe Spielplan). 

Der Plan liegt nun nahezu fertig vor uns. Aus ihm ist eindeutig 
ersichtlich, welche Räume existieren und wie sie miteinander 
verbunden sind. Wie ich bereits gesagt habe, ist dieser Plan 
nur wenig ausgebaut. Ein perfekter Ausbau kann erreicht wer¬ 
den, indem man den Wald vergrößert. Der Spieler könnte 
durch den Wald zu der hohen Mauer gelangen. Er kann zwar 
dort nichts anfangen, da er den Tempel nur durch den unterir¬ 
dischen Geheimgang vom Gebirge aus erreicht, und später 
durch den unterirdischen Fluß wieder verläßt, aber wir haben 
in der Vorgeschichte des Spiels die sagenumwobene Mauer 
erwähnt. Also sollte sie auch im Spiel auftauchen. Des weite¬ 
ren müßte die unterirdische Fabrik, sowie die gesamten Wan¬ 
dermöglichkeiten im Gebirge und der Tempelplan erweitert 
werden. 

Nun wird es langsam Zeit, sich Gedanken über den Action¬ 
verlauf des Spiels zu machen. Woher kommen die Ideen zu 
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stand nehmen und die Höhle dann wieder verlassen. Welche 
Aufgabe kann ich ihm denn stellen? 

Primitive Losungen wären, den Gegenstand im Boden der 
Höhle zu vergraben, oder einfach zu verstecken (der Spieler 
braucht dann eben eine Schaufel). Ich versuche also eine 
schwierigere Aufgabe zu finden, bei der der Spieler nur durch 
Nachdenken weiterkommen oder überleben kann. 

Und da ist auch schon die Idee geboren: Wilde Bären hau¬ 
sen doch in Höhlen im Gebirge. Nun stelle ich mir die Spiel¬ 
szene einmal vor. Der Spieler entdeckt einen Höhleneingang 
und geht hinein. In der Höhle, die völlig verlassen ist, findet 
der Spieler einen interessanten Gegenstand. Er nimmt den 
Gegenstand. Plötzlich hört er ein gefährliches Brummen vor 
dem Höhleneingang. Kurz darauf betritt ein riesiger Bär mit 
lautem Gebrüll die Höhle und nähert sich dem Spieler. Dies 
ist der Moment, wo der Spieler seine grauen Zellen bemühen 
muß. Wie kommt er lebend aus der Höhle heraus? Einfach am 
Bären vorbeilaufen (wegrennen) ist sicher zu leicht. Den 
Bären mit einem Schwert erlegen, soll auch unmöglich sein, 
da der Bär zu stark ist. Angenommen, der Spieler hat ein 
Schwert und greift den Bären an, so soll er ihn verletzen kön¬ 
nen. Dadurch soll dieser aber höchstens noch wilder werden 
und ... game over. 

Nun gut, ich habe viele Ideen wie der Spieler die Situation 
verlieren kann, aber er muß schließlich auch eine Chance 
haben zu entkommen. Wir haben ja bereits klargestellt, daß 
man den Spieler nie vor vollendete Tatsachen stellen sollte, 
wenn man ein gutes Adventure schreiben will. Die Idee: 
Bären haben Angst vor Feuer. Der Spieler muß also schnell 
etwas Holz vom Boden nehmen (das selbstverständlich dort 
liegt) und es mit seinem Feuerzeug (das er hoffentlich in sei¬ 
ner Ausrüstung hat) entzünden. Der Bär bekommt dann 
Angst vor der so entstandenen Fackel und flieht mit pani¬ 
scher Angst — der Spieler hat es geschafft! 


330 ? 


den Aufgaben, die der Spieler später lösen muß? Nun, ganz 
einfach! Innerhalb eines Kurses, wie diesem hier, ist es 
schwierig, Gedanken die parallel ablaufen, gleichzeitig im Kurs 
zu erklären, ohne Verwirrung zu stiften. 

Tatsächlich arbeitet man beim Erstellen von Adventure- 
Spielen immer an mehreren Dingen gleichzeitig: 

Während man die Landkarte zeichnet, kommen einem neue 
Ideen. Betrachten Sie doch die Karte einmal ganz genau! In 
Raum 11 finden Sie eine Höhle. Von dieser Höhle im Gebirge 
war bisher noch nie die Rede gewesen. Aber wie kommt sie 
denn nun in den Plan? Nun, ganz einfach: Während ich die 
Landkarte für das Gebirge zeichnete, dachte ich mir, daß es 
eigentlich monoton ist, wenn der Spieler mehrmals die 
Beschreibung »Sie befinden sich im Gebirge« erhält. So kam 
ich auf die Idee, daß sich im Gebirge zur Abwechslung auch 
eine Höhle befinden könnte. Wie wird der Spieler reagieren, 
wenn er die Lagebeschreibung »Sie befinden sich im 
Gebirge. Sie sehen einen Höhleneingang!« erhält? Ich ver¬ 
setzte mich also in die Lage des Spielers und überlegte, was 
ich machen würde, wenn ich ein Adventure spiele und diese 
Beschreibung erhalte. Nun, ich würde sicher aus Neugier in 
die Höhle gehen, so wie jeder neugierige Abenteurer es auch 
macht. Gut, der Spieler geht also in die Höhle. Was soll der 
Spieler in der Höhle vorfinden? Eine leere Höhle wäre 
schließlich zu langweilig. Ich beschließe deshalb, in die Höhle 
einen Gegenstand zu legen, der für den Fortlauf des Spiels 
sehr wichtig ist. Dieser Gegenstand könnte ein Schlüssel, ein 
Schwert oder ähnliches sein. 

Dadurch, daß ich einen so wichtigen Gegenstand in die 
Höhle lege, stelle ich auch sicher, daß der Spieler in die Höhle 
gehen muß — früher oder später. 

Selbstverständlich bekommt man bei einem Adventure nur 
dann etwas, wenn man es sich verdient hat. Der Spieler soll 
also nicht einfach in die Höhle gehen können, den Gegen¬ 
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Anhand dieses Beispiels können Sie erkennen, wie man 
Vorgehen muß, um Action-Szenen zu gestalten. 

Die Arbeitsschritte sind: 

1. Ausdenken einer Gefahrensituation. Nicht davor 
zurückschrecken, wenn diese Gefahrensituation 
zunächst ausweglos erscheint. 

2. Darüber nachdenken, durch welche Ideen der Spieler 
verliert. 

3. Über eine Lösung nachdenken. 

Vom 1. Schritt direkt zum 3. überzugehen, ist sehr schwer. 
Deshalb fügt man einen zweiten Schritt ein, bei dem man sich 
erst einmal Gedanken macht, wodurch der Spieler verlieren 
kann, also welche falsche Reaktionen des Spielers in 
Betracht gezogen werden können. 

Dabei kommt man dann meistens auch auf die Lösung der 
jeweiligen Gefahrensituation. 

Bedenken Sie dabei: Je länger Sie an dem Problem arbei¬ 
ten und je schwieriger es für Sie ist eine vernünftige Lösung 
zu finden, desto interessanter und anspruchsvoller wird das 
Spiel für den Abenteurer später sein. Betonen möchte ich 
hierbei noch einmal den Ausdruck »vernünftige Lösung«. 
Damit ist gemeint, daß Sie keine utopischen Lösungen aus¬ 
hecken sollen, sondern Lösungen, die auch wirklich oder 
wenigstens zum Teil in der Realität Vorkommen. 

Eine utopische Lösung wäre, wenn man den Bären einfach 
mit Anbrüllen zur Flucht bewegen könnte. 

Lassen Sie sich ruhig mehrere Tage Zeit, die Lösungen zu 
den einzelnen Aufgaben zu finden. 

Ein anderes Beispiel für eine solche Action-Szene stand 
bereits in der Einleitung zu diesem Kurs. Es stammt aus dem 
Adventure »Görden Saga«. 

Oft bringt der Einbau von Action-Szenen auch eine Ände¬ 
rung der Spielkarte mit sich. Sie sehen, daß es beim Schrei¬ 
ben von Adventures nahezu unmöglich ist, einzelne Arbeits¬ 
schritte nacheinander durchzuführen — man muß vielmehr 
immer an mehreren gleichzeitig arbeiten, da sie alle eng mit¬ 
einander verbunden sind. 

Ich möchte jetzt nicht auf weitere Action-Szenen eingehen, 
die man in das Spiel einbauen kann. Es sollen statt dessen 
noch einige Erläuterungen zur Karte gemacht werden. 

Vom Raum 1 (Strand) kann man in mehrere Richtungen 
gehen, die alle zum Urwald führen. Betrachten Sie nun einmal 
die Räume 4 und 7 im Wald und ihre Verbindungen zueinan¬ 
der. Sie werden feststellen, daß man von Raum 7 nach Süd¬ 
osten gehen muß, um zu Raum 4 zu gelangen etc. Es ist beson¬ 
ders wichtig, daß Sie auch die Himmelsrichtungen NO, SO, 
SW, NW in der Karte verwenden. Dies ist zwar später ein biß¬ 
chen schwerer zu programmieren, als nur vier Richtungen, 
aber die Karten werden durch acht oder zehn Richtungen 
(mit rauf und runter) viel komplexer. Der Spieler wird somit 
gezwungen, Aufzeichnungen während des Spiels zu 
machen, und kann die Karte nicht gleich auswendig lernen, 
wenn sie nur wenig Räume hat. 

Zwischen den Räumen 13 und. 14 befindet sich eine gestri¬ 
chelte Linie, mit der Bezeichnung Felsspalt. Diese gestri¬ 
chelte Linie bedeutet, wie bereits besprochen, daß der Spie- 
ler nicht direkt von Raum 13 zu Raum 14 gelangen kann, son¬ 
dern nur durch einen Felsspalt, den er finden muß. Dieser 
Spalt könnte durch einen Felsblock versperrt sein, den man 
erst wegrollen muß. Der Felsspalt kann als Tür zwischen 
Raum 13 und 14 angesehen werden. Zwischen den Räumen 
16 und 17 befindet sich ebenfalls eine gestrichelte Linie mit 
der Bezeichnung Geheimtür; man gelangt also nur durch eine 
Geheimtür von Raum 16 nach Raum 17. 

Zwischen Raum 14 und 15 befindet sich ein Doppelpfeil mit 
der Bezeichnung Aufzug. Man muß in Raum 14 (der Grotte) 
also in einen Aufzug steigen, diesen aktivieren, und gelangt 
dann zu Raum 15. In diesem Fall hätte man auch eine gestri¬ 
chelte Linie statt eines Doppelpfeils verwenden können. Zwi¬ 


schen den Räumen 24 und 25 (dem Fluß) befindet sich ein 
Pfeil, der nur in eine Richtung weist. Dies ist logisch, da der 
Spieler nur in die Richtung kann, in der der Fluß treibt. Der 
Fluß ist so schnell, daß er nicht in der Lage ist, gegen die Strö¬ 
mung zu rudern. 

Sicher haben Sie bereits den Sinn erkannt, die die Durch¬ 
numerierung der Räume in sich birgt. Sie können sich so 
leichter Notizen zu den einzelnen Räumen machen. Es emp¬ 
fiehlt sich zu jedem Raum eine kleine Notiz zu machen, was 
dort ist, und was dort passieren kann. 

Des weiteren sollten Sie sich eine Tabelle anfertigen, die 
aussagt, wo sich die einzelnen Gegenstände befinden; oder 
zeichnen Sie die Gegenstände einfach in die Karte ein. Wich¬ 
tig ist nur, daß Sie später beim Programmieren genügend 
Notizen angefertigt haben, auf die Sie dann zurückgreifen 
können. 

Zeichnen Sie die endgültige Spielkarte sauber und deutlich. 
Damit wären wir auch schon am Ende des ersten Kursteils an¬ 
gelangt. Sie haben jetzt vieles über Adventures erfahren, wis¬ 
sen wodurch sich gute Adventures von schlechten unter¬ 
scheiden, und wie man eine Adventurekarte entwirft und ein 
Spiel mit Action versieht. Es gibt natürlich noch einige weitere 
Tricks zum Schreiben und Ausdenken von Adventures. Es 
werden Ihnen sicher noch viele Ideen kommen, was man so 
alles machen kann. Sie werden schon bald Ihren eigenen Stil 
entwickeln. 

4. Kapitel: Die Programmiertechnik 

Wir haben bislang gelernt, wie man sich ein Abenteuerspiel 
ausdenkt und es ausarbeitet. 

Jetzt wollen wir lernen, wie man solch ein ausgearbeitetes 
Spiel in ein Basic-Programm für den C 64 umsetzt. 

V' Reicht haben Sie schon etwas von sogenannten 
Adventure-Generatoren gehört. Dies sind Programme, die es 
jedem, auch ohne jegliche Basic-Kenntnisse, ermöglichen, 
Adventure-Spiele zu erzeugen. Mit solchen Generatoren las¬ 
sen sich oft relativ umfangreiche (mit vielen Räumen) Aben¬ 
teuerspiele erstellen. Umfangreich heißt jedoch lange noch 
nicht anspruchsvoll. 

Vom Kauf eines solchen Generators möchte ich Ihnen un¬ 
bedingt abraten. Auch die allerbesten Generatoren schrän¬ 
ken Ihre Kreativität in erheblichem Maße ein. Man erkennt 
auch meist von welchem Generator das Spiel erzeugt wurde, 
Sie sollen jedoch lernen, wie Sie Ihrem Adventure eine per¬ 
sönliche Note verleihen. Man soll erkennen, daß das Spiel 
von Ihnen programmiert wurde, und nicht von irgendeinem 
Programmgenerator. 

Das Ziel dieses Kurses ist, Ihnen das Wissen zu vermitteln, 
das nötig ist, um anspruchsvolle Adventures zu schreiben, 
die den kommerziellen Spielen in keiner Weise an Qualität 
nachstehen. Die zahlreichen Beispiel-Programme (Listings) 
sind ausführlich dokumentiert. Ausreichende Basic-Kennt¬ 
nisse und Erfahrung sind jedoch unbedingt erforderlich, da 
dieser Kurs kein Basic-Kurs ist. Selbstverständlich werde ich 
auf Kniffe und Programmiertricks ausführlich eingehen. 


Arbeitsmittel und Methoden 


Zum Programmieren gehen wir von folgender Hardware 
aus: Computer C 64 und Datasette (oder Diskettenlaufwerk). 
Ein Drucker und ein Diskettenlaufwerk wären zwar äußerst 
sinnvolle Ergänzungen, aber ich möchte vom Computerbesit¬ 
zer ausgehen, der diese Erweiterungen nicht besitzt. 

Für die Programme werden wir, früher oder später, alle 38 
KByte RAM benötigen. Deshalb müssen wir auf Erweiterun¬ 
gen wie Simons Basic verzichten. Nicht zuletzt auch, weil sol¬ 
che Erweiterungen den Anwenderkreis stark einschränken. 
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Simons Basic wäre vielleicht noch vertretbar (abgesehen von 
den 8 KByte Basic-Speicher, die es belegt), da es schon weit 
verbreitet ist, aber andere Erweiterungen würden es nur dem¬ 
jenigen ermöglichen das Adventure zu spielen, der diese Er¬ 
weiterung besitzt. 

Äußerst sinnvoll hingegen sind Erweiterungen, die den Pro¬ 
grammierkomfort unterstützen, der beim C 64, abgesehen 
vom Full-Screen-Editor, sehr gering ist. 

Ich meine hiermit Zusatzbefehle wie: 

DUMP zum Variablen auflisten 

HELP zur Fehlerbeseitigung 

TRACE zum Überprüfen des Programmablaufs sowie 

KEY zur Funktionstastenbelegung etc... 

Gemeint sind also Befehle, die nicht im Programm verwen¬ 
det werden, sondern nur direkt, wie der Befehl LIST arbeiten. 

Eine empfehlenswerte Erweiterung ist das mittlerweile 
weitverbreitete Turbotape—eine Schnellade-Routine, die die 
Ladegeschwindigkeit der Datasette um den Faktor 10 erhöht. 
Turbotape benötigt keinen Basic-Speicher. Durch die hohe 
Baudrate entfallen langwierige LOAD- und SAVE-Vorgänge. 
Eine andere sinnvolle Erweiterung ist das KFC-Supermodul. 
Es enthält Turbotape, sowie die oben erwähnten Befehle und 
noch einige mehr. Da es jedoch 8 KByte Speicher benötigt, 
kann es nur so lange eingesetzt werden, wie das Adventure 
die Länge von 30 KByte unterschreitet. 

Reichen die 30 KByte schließlich nicht mehr aus, so muß 
das Modul abgeschaltet und somit auf die Hilfsbefehle ver¬ 
zichtet werden. Dadurch erklärt sich auch die Tatsache, daß 
die schwierigsten und kompliziertesten Programmteile zu 
Beginn geschrieben werden müssen. Um das Spiel später 
mit Grafik zu versehen, werden keine Trace- und Dump- 
Befehle mehr benötigt. 

Eine weitere Schwierigkeit besteht darin, den Überblick 
über ein 38-KByte-Programm zu behalten, wenn man keinen 
Drucker besitzt. Ich kann Ihnen jedoch aus eigener Erfahrung 
versichern, daß ein Drucker bei einer guten Programmier¬ 
technik nicht unbedingt erforderlich ist. 

Sicherlich kann man den Überblick über ein langes Basic- 
Programm gewährleisten, wenn man es gut strukturiert. Da 
strukturierte Programme jedoch viel länger sind als nicht¬ 
strukturierte, müssen wir eine Zwischenlösung von struktu¬ 
rierter und »chaotischer« Programmierung suchen. 

Ich habe mich für folgende Lösung entschieden: 

— Das Programm wird in kleine Teilprogramme (Module) 
zerlegt. 

— Diese Module werden ausführlich in ihrer Funktions¬ 
weise erklärt. Jedes Modul ist in sich abgeschlossen. 
Es kann individuell für jedes Programm verwendet wer¬ 
den. Das Modul wird im Normalfall mit GOSUB aufgeru¬ 
fen. 

— Die einzelnen Module werden innerhalb des Pro¬ 
gramms vom Hauptmodul aufgerufen. Das Hauptmodul 
ist also der zentrale Punkt des Listings beziehungs¬ 
weise des Programms. 

— Die Module stehen immer in den selben Zeilennum¬ 
mern; zum Beispiel Befehlseingabemodul immer von 
Zeile 50000 bis maximal Zeile 50999 etc. 

Die Module werden in den folgenden Abschnitten ausführ¬ 
lich behandelt. Ein Abschnitt baut auf dem anderen (vorher¬ 
gehenden) auf. Deshalb ist es erforderlich, daß Sie die 
Module nicht nur einfach abtippen, sondern auch verstehen 
lernen. Sind Sie mit der Funktionsweise eines Moduls ver¬ 
traut, so versuchen Sie damit zu experimentieren. 

im nächsten Kapitel wird ein wichtiges Modul behandelt — 
die Befehlseingabe. Es werden hierbei mehrere Möglichkei¬ 
ten vorgestellt. Ziel eines jeden Kapitels soll sein, Ihnen das 
Wissen, das nötig ist, das jeweilige Modul zu programmieren, 
zu vermitteln. Damit Sie überprüfen können, ob Sie genug für 
das jeweils folgende Modul gelernt haben, werde ich Ihnen 


am Ende eines jeden Abschnittes eine Aufgabe stellen. 
Hierzu jedoch später. 

Speichern Sie alle Beispielprogramme nach dem Eintippen 
stets auf Kassette/Diskette ab, damit Sie später darauf 
zurückgreifen können. 

Bevor Sie nun beginnen, sollten Sie einen Blick in den 
Anhang dieses Kurses werfen, da dort mehrere Hilfspro¬ 
gramme zu finden sind. 

Während des Kurses werden wir öfter auf Programme aus 
diesem Anhang zu sprechen kommen. Also, Computer ein¬ 
schalten und los gehfs... 


String-Operationen 


Gerade beim Programmieren von Abenteuerspielen ist es 
unbedingt notwendig, mit der Technik der Stringverarbeitung 
vertraut zu sein. Obwohl die eigentlichen Stringfunktionen im 
Basic leicht verständlich sind, haben Anfänger oft erhebliche 
Schwierigkeiten, sie sinnvoll einzusetzen. Dieser Fall tritt 
insbesondere dann auf, wenn mehrere Funktionen ineinan¬ 
der verschachtelt werden müssen. 

Hier nun eine kleine Einführung in die Stringverarbeitung. 
Das Basic des Commodore 64 bietet folgende Stringfunktio¬ 
nen an: 

ASC(X$): Geben Sie Ihrem Computer im Direktmo¬ 

dus einmal folgenden Befehl ein: 

X$= "A" : ? ASC(X$) <RETURN>. 

Als Ergebnis erhalten wir 65. Im C 64- 
Handbuch auf Seite 135 bis 137 finden Sie 
eine Tabelle der ASCII- und CHR$-Codes. 
Diese Tabelle ordnet jedem Zeichen eine 
Zahl zu. Bei der Zahl 65 finden wir den 
Buchstaben A. 

Die ASC-Funktion liefert uns also den Zah¬ 
lenwert zu jedem Zeichen und zwar jeweils 
den Wert des 1. Zeichens des definierten 
Strings. 

CHR$(X): CHRS ist die Umkehrung der ASC- 

Funktion. CHR$(X) ergibt das Zeichen, 
das dem Zahlenwert X zugeordnet ist. 
Geben wir ? CHR$ (65) ein, so erhalten 
wir als Antwort das Zeichen A. Mit 
CHR$(X) können auch Sonderfunktionen 
wie Farben und Groß-/Kleinumschaltung 
ausgeführt werden. Die Tabelle im Hand¬ 
buch gibt hier ausführlich Antwort. 
LEN(X$): Diese Funktion ergibt die Anzahl der Zei¬ 

chen, die ein String enthält. 

X$ = "ABENTEUER" 

? LEN(X$) 

Das Ergebnis wäre hierbei 9, da das Wort 
»Abenteuer« 9 Buchstaben enthält. Ach¬ 
tung: Auch Leerzeichen im String werden 
mitgezählt. 

LEFT$(X$,X): Diese Funktion ergibt die linken X-Zeichen 
von X$. 

Beispiel: X$ = — ABENTEUER— 

? LEFTS(X$,5) ergibt »ABENT«. 
RIGHTS Diese Funktion ergibt die rechten X-Zei- 

(X$,X): chen von XS. 

MID$(X$,S,X): Diese Funktion ergibt X-Zeichen von X$, 
beginnend mit dem Zeichen an Position S. 
X$ = "ROTGELBGRUEN" 

? MID$(X$,4,4) ergibt GELB. 

Der dritte Patameter kann fortgelassen 
werden. MID$(X$,S) ergibt dann alle Zei¬ 
chen ab Position S, in unserem Beispiel 
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also »GELBGRUEN«. 

STR$(X): STR$(X) gibt uns die Möglichkeit, eine 

Zahl in einen String zu verwandeln. 

X = 100+20+3 
X$ = STR$(X) 

? X$ ergibt 123 

VAL(X$): Diese Funktion ist im wesentlichen die 

Umkehrung der STR$-Funktion. 
VAL("100") ergibt 100 
VAL("123ABC") ergibt 123 
VAL("ABC123") ergibt 0, da das erste 
Zeichen keine Zahl ist. 

Dies waren nun auch schon alle Funktionen, die Ihnen nun 
verständlich sein sollten. 

Nun aber einige Anwendungsbeipiele. 

1. Prüfen, ob ein String in einem anderen enthalten ist. 
Eine solche Routine ist besonders dann nützlich, wenn 
man dem Spieler ermöglichen will, Befehle abzukürzen 
(zum Beispiel UNT statt UNTERSUCHE). 

Beispiel: Es soll überprüft werden, ob B$ in A$ enthal¬ 
ten ist. 

10 A$ = "UNTERSUCHE" 

20 B$ = "UNT" 

30 IF B$ = LEFT$(A$,LEN(B$)) THEN 
PRINT"B$ KOMMT IN A$ VOR!" 

40 END 

Eine Programmdokumentation erübrigt sich hier. Falls 
Sie das Programm nicht verstehen, so studieren Sie 
nochmals ausführlich die einzelnen String-Befehle. 

2. Ausdruck einer Zahlenkette. 

Geben Sie einmal folgendes Programm ein: 

10 FOR 1=1 TO 5 
30 PRINT I 
40 NEXTI 
50 END 

Wenn Sie das Programm nun mit RUN starten, wird auf dem 
Bildschirm folgendes ausgedruckt: 1 , 2,3,4,5 , 

Uns stören hierbei die Zwischenräume (oder sollten uns 
zumindest stören). Deshalb soll das Programm so verändert 
werden, daß folgendes Ergebnis erreicht wird: 1,2,3,4,5, 
Um dies zu erreichen, machen wir in dem Programm einen 
kleinen Umweg über den STR$(X)-Befehl. 

Wir ergänzen das Programm um Zeile 
20 X$=MID$(STR$(I),2) 
und ändern Zeile 30 um 
30 PRINT X$;","; 

Ich hoffe, Sie sind mir nicht böse, daß ich schon wieder 
keine ausführliche Dokumentation zu Zeile 20 liefere, aber 
Ziel des Kurses soll schließlich sein, Ihnen Programmieren 
beizubringen. Ich werde mich deshalb hauptsächlich auf die 



Dokumentation von kniffligen Problemen beschränken und 
Sie die einfacheren Aufgaben selbst ausarbeiten lassen. 
Aber nur keine Angst. Es wird bestimmt nicht zu schwer für 
Sie werden. Wenn Sie sich im Gebrauch von String-Befehlen 
nun einigermaßen sicher fühlen, dann können Sie sogleich 
mit dem nächsten Abschnitt fortfahren. 


Die Befehlseingabe 


ln diesem Abschnitt werden wir einen Programmteil erar¬ 
beiten, der für jedes Text-Adventure unentbehrlich ist: die 
Befehlseingabe. 

Darunter versteht man den Programmteil, bei dem der 
Computer einen Befehl vom Spieler erwartet. Bei den mei¬ 
sten Adventures erscheint dann auf dem Bildschirm die 
Frage »WAS NUN?«. Bereits daran, wie gut die Befehlsein¬ 
gabe ist, kann man über die Qualität des Spiels entscheiden. 
Ziel dieses Abschnitts soll sein, Ihnen soviel Wissen über 
Texteingaberoutinen zu vermitteln, daß Sie in der Lage sind, 
eine Befehlseingaberoutine zu schreiben, die professionel¬ 
len Spielen in nichts nachsteht. Ziel ist es also, ein Befehls- 
eingabe-Modul zu schreiben, das später universell einge¬ 
setzt werden kann. 

Im Kapitel Arbeitsmittel und Methoden habe ich Ihnen 
bereits erklärt, daß jedes Modul immer in den selben Zeilen¬ 
nummern stehen soll, damit man auch bei längeren Program¬ 
men nicht den Überblick verliert. 

Das Befehlseingabe-Modul wollen wir künftig immer in den 
Zeilen 50000 bis maximal 50999 unterbringen. Es wird folg¬ 
lich mit GOSUB 50000 aufgerufen. 

a) Befehleingabe Modul 1 

Geben Sie nun einmal Listing 1 in den Computer ein: 


10 GOSUB 50000 

< 140> 

20 PRINT BE* 

<088> 

30 GOTO 10 

<008> 

50000 REM *** BEFEHLSEINGABE I **» 

<203> 

50010 POKE 19B,0:BE*="" 

< 141 > 

50020 INPUT "WAS NUN "; BE* 

< 178> 

50030 RETURN 

< 191 > 

Listing 1. 



Wenn Sie das Programm laufen lassen, so fragt der Compu¬ 
ter »WAS NUN?« und wartet auf eine Befehlseingabe, etwa 
auf einen Befehl wie »NIMM SCHWERT« der mit RETURN 
abgeschlossen wird. 

Dokumentation zum Listing: 

10 Aufruf des Befehlseingabe-Moduls 

20 Ausdruck des Befehls, den wir als BES bezeich¬ 
nen wollen 

30 Zurück zum Anfang 

50000 POKE 198,0 setzt den Tastaturpuffer auf Null. 

Dadurch wird verhindert, daß die Befehlseingabe 
einfach übersprungen wird, weil noch Zeichen im 
Tastaturpuffer stehen. Außerdem wird der String, 
in dem der Befehl steht, gelöscht (BE$= " ") 

50020 Mittels eines einfachen INPUT-Befehls wird der 
Befehlsstring BES eingelesen 

50030 Ende des Moduls 

Hiermit hätten wir auch schon unser erstes Modul. 

Leider hat diese einfache Befehlseingabe einige Haken: 

— Man kann mit dem Cursor über den ganzen Bildschirm 
fahren und beliebig »herumwüten«. 

— Bei Eingabe von Komma erfolgt ein »?EXTRA IGNORED 
ERROR«. 

— Professionelle Routinen fahren mit dem Programmablauf 
fort, wenn über einen längeren Zeitraum keine Eingabe 
erfolgt. 
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Dies ist bei unserer ersten Routine noch nicht der Fall. 
Wir müssen eingestehen, daß der INPUT-Befehl anschei¬ 
nend doch nicht das Wahre für eine professionelle Eingabe¬ 
routine ist. 

Das Problem ist noch einmal neu anzupacken, 
b) Befehlseingabe Modul 2 

Geben Sie bitte das folgende Programm (Listing 2) ein 
und lassen Sie es nach SAVE laufen. 


113 GOSUB 50000 <140> 

20 PRINT:PRINT BE*:PRINT <254> 

30 GOTO 10 <00B> 

50000 REM *** BEFEHLSEINGABE II *** <020> 

50010 POKE 198,0:BE*="":PRINT"WAS NUN ? "; <250> 
50020 POKE 204,0 <176> 

50030 GET X*:IF X*=""THEN 50030 <036> 

50040 IF PEEK(203> =1 OR LEN(BE*)>68 THEN P 

RINT" ":POKE 204,1:RETURN <239> 

50050 I=ASC(X*):IF I<65 OR I>90 THEN IF I< 

>32 AND 1020 AND 1034 THEN 50030 <118> 

50060 IF 1=20 AND BE*=""THEN 50030 <038> 

50070 IF 1=20 THEN POKE 204,1:PRINT"CLEFT, 

2SPACE,2LEFT >";:BE*=LEFT*(BE*,LEN(BE 
*> —1):GOTO 50020 <119> 

50080 PRINT X*;:BE*=BE*+X*:GOTO 50030 <214> 


Listing 2. 


Auf den ersten Blick scheint sich nicht viel geändert zu 
haben. Bei intensiverem Ausprobieren werden Sie jedoch 
einige Unterschiede zum vorhergehenden Programm 
bemerken: 

— Die Cursortasten sind ausgeschaltet 

— Es werden nur noch folgende Zeichen akzeptiert: 

A bis Z und " und die Tasten SPACE, DEL, RETURN 

— Mit DEL kann nur die Eingabe gelöscht werden — nicht 
jedoch die »WAS NUN?«-Frage. 

Damit haben wir eine schon fast »idiotensichere« Routine, 
wie man sie in professionellen Spielen findet. 

Dokumentation zum Listing: 

50010 Tastaturpuffer und BES löschen. »WAS NUN?« fra¬ 
gen. 

50020 POKE 204,0 zum Einschalten des Cursors. 
50030 Auf Eingabe eines einzelnen Zeichens X$ warten. 
50040 Jeder Taste ist ein bestimmter Wert zugeordnet 
(zum Beispiel RETURN = 1). Mittels PEEK (203) 
erfährt man, welche Taste gedrückt worden ist. Wird 
also die RETURN-Taste gedrückt oder die Länge 
des Befehls BES überschreitet die Länge von 68 
Zeichen, so wird die Routine beendet: der Cursor 
wird gelöscht und gestoppt. 

50050 Hier wird die Eingabemöglichkeit auf die oben 
erwähnten Zeichen und Tasten eingeschränkt (vgl. 
auch ASCII-Werte mit Commodore-Handbuch). 
50060 Hier wird verhindert, daß mittels DEL mehr Zeichen 
gelöscht werden als vorher eingegeben worden 
sind. 

50070 Prüfung, ob DEL-Taste gedrückt worden ist. Wenn 
Ja, dann Cursor ausschalten. Letztes Zeichen 
löschen. Vom Befehlsstring BES das letzte Zeichen 
wieder löschen. 

50080 Das neue Zeichen X$ ausdrucken. Den Befehls¬ 
string BES um das neue Zeichen X$ erweitern. 
Neues Zeichen von Tastatur abwarten. 

Nun möchte ich Ihnen noch eine Routine (Listing 3) vor¬ 
stellen. Erfolgt 30 Sekunden lang keine Eingabe, so endet 
die Routine und fährt im Programm fort — die Bedenkzeit des 
Spielers wird also eingeschränkt. Bei dieser Routine werden 
Sie feststellen, daß der Bildschirm in zwei Abschnitte unter¬ 
teilt ist, wie es bei Adventures mit Grafik und Text vorkommt. 
Die oberen 3 / 4 des Bildschirms sind als Grafik-Fenster, das 
untere Viertel als Texteingabe-Fenster definiert. 


10 PRINT” CCLR. lBDOUlN VCCCCCCCCCCCCCCCCCCCCC 

.C.C.C.CCC.CCC.C,C_C.C_CC.CC.C.C " <B36> 

20 GOSUB 50000 <150> 

30 PRINT"CHOME>";BE* <244> 

40 GOTO 20 <019> 

50000 TI*="000000■’ : POKE 198,0: POKE 

211,0:POKE 214,18:SYS 5B732:PRINT"CD 
OWN,WHITE» B"; <125> 

50010 GET X*:IF PEEK(203)=1 THEN 50110 <040> 

50020 IF TI*>"000030"THEN 50110 <041> 

50030 IF X*=""THEN 50010 <203> 

50040 IF LEN(BE*)=0 AND ASC(X*)=20 THEN 50 

010 <090> 

50050 I=ASC(X*):IF I<65 OR I>90 THEN IF I< 

>20 AND 1032 AND 1034 THEN 50010 <116> 

50060 BE*=BE*+X* <125> 

50070 PRINT CHR*(20);X*;"B"; <129> 

50080 IF 1=20 THEN BE*=LEFT*(BE*,LEN(BE*>- 

2):GOTO 50010 <148> 

50090 TI*="000000":IF LEN(BE*>>76 THEN FOR 
1=1 TO 80:PRINT CHR*(20);:NEXT:GOTO 
50000 <066> 

50100 GOTO 50010 <246> 

50110 PRINT:PRINT"CUP,40SPACE>"j <253> 

50120 PRINT"C40SPACE>":RETURN <04B> 


Listing 3. 


Auf eine ausführliche Dokumentation verzichte ich hier, da 
nur wenige neue Elemente im Listing auftauchen. 

Dies sind: a) TIS wird zum Einschränken der Abfrage¬ 
dauer eingesetzt. Wenn die Zeit von 30 
Sekunden überschritten wird, so fährt das 
Programm automatisch fort (Zeile 50020). 
b) Werfen Sie bitte einen Blick auf Zeile 
50000. 

Dort heißt es: POKE 214,18: POKE 
211,0:SYS 58732 

Durch diese POKE-Stellen kann man 
bestimmen, wo der Cursor oder das näch¬ 
ste PRINT erscheint. 

POKE 214, Zeile (0-24) 

POKE 211, Spalte (0-39) 
dannach SYS 58732, um eine Betriebs¬ 
system-Routine aufzurufen, die den Cursor 
an der neuen Stelle positioniert. 

Damit wären wir auch schon am Ende des ersten Ab¬ 
schnitts angelangt. Sie sollten nun gelernt haben, wie man 
mit den String-Funktionen umgeht und Befehlseingabe- 
Routinen schreibt. Bevor Sie mit dem nächsten Abschnitt 
fortfahren, sollten Sie ein wenig mit den vorgestellten Routi¬ 
nen experimentieren und sie nach eigenen Wünschen und 
Ideen umgestalten. 

Schreiben Sie sich sodann ein Befehlseingabe-Modul 
(welches wie vereinbart in den Zeilen 50000 bis maximal 
50999 liegt), das Sie dann in den folgenden Abschnitten ver¬ 
wenden können. 

Das Modul muß durch GOSUB 50000 aufgerufen werden 
können und dann einen String BES liefern, der den Befehls¬ 
satz enthält. 


Die Befehlszerlegung 


Nachdem wir nun unser Befehlseingabe-Modul fertigge¬ 
stellt haben, wollen wir uns einem neuen Modul »dem 
Befehlszerlegemodul« zuwenden und somit einen ersten 
Schritt zur Befehls-Analyse beginnen. 

Was ist eigentlich der Unterschied zwischen Befehlszerle¬ 
gung und Befehls-Analyse, werden Sie jetzt vielleicht fragen? 

Ganz einfach. Die Befehlszerlegung (also unser neues 
Modul) besteht darin, einen Befehlssatz BES in kleine ein¬ 
zelne Befehle zu zerlegen. Dies ist nötig, da der Computer 
immer nur einen Befehl nach dem anderen und nicht einen 
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Mehrfachbefehl auf einmal bearbeiten kann. Die Befehls- 
Analyse besteht darin, die Einzelbefehle auszuführen. Das 
Programm reagiert auf den Befehl. 

Vielleicht haben Sie schon einmal das englische Adventure 
»The Hobbit« gespielt oder zumindest davon gehört. 

»The Hobbit« ist ein Adventure mit äußerst gelungener 
Befehls-Analyse. Der Wortschatz kennt kaum Grenzen. 

Hier ein Beispiel, wie es beim Hobbit sein könnte: 

SIE SEHEN: SCHWERT 
SEIL 

DIE FELSENTUER 

MOEGLICHE RICHTUNGEN: SUEDEN 

WAS NUN? Nimm das Schwert, das Seil und geh nach Sue- 
den. 

SIE NEHMEN DAS SCHWERT. 

SIE NEHMEN DAS SEIL 

SIE GEHEN NACH SUEDEN. 

Diesen Textausschnitt (den ich ins Deutsche übersetzt 
habe) wollen wir nun einmal näher betrachten. 



Der Computer teilt dem Spieler mit, was er sieht und welche 
Richtungen möglich sind und erwartet sodann einen Befehl 
»WAS NUN?«. 

Der Spieler gibt seinen Befehlssatz (bei uns BES) ein. 

Der Computer meldet sich jedoch nicht mit »SIE NEHMEN 
DAS SCHWERT, DAS SEIL UND GEHEN NACH SUEDEN.«, 
sondern gibt drei Meldungen aus — für jeden Teilbefehl eine. 

Daran können wir erkennen, daß auch dieses professionel¬ 
le Adventure Befehle nacheinander ausführt. 

Unser Ziel soll nun sein, eine Befehlszerlegung und 
Befehls-Analyse zu programmieren, die der oben erwähnten 
professionellen in nichts nachsteht. 

Bevor wir uns wieder zum Programmieren begeben, müs¬ 
sen wir einiges an Theorie durchkämmen. 

Schauen wir uns doch einmal folgende Befehlssätze, die 
jeweils einen Befehl enthalten, an: 

1. NIMM DAS SCHWERT. 

2. GEH NACH NORDEN. 

3. UNTERSUCHE DAS SCHWERT. 

4. WIRF DAS SEIL. 

5. OEFFNE DIE TRUHE. 

6. LEGE DAS SCHWERT IN DIE TRUHE. 

7. TOETE DAS MONSTER MIT DEM SCHWERT. 

8. WARTE. 

Dies sind typische Befehlssätze BES, wie sie vom Spieler 
eingegeben werden. 

Nun wollen wir die Befehlssätze auf das Nötigste kompri¬ 
mieren, das heißt, daß alle Worte, die für das Verständnis des 
Befehls unnötig sind, aussortiert werden. 


Wir erhalten dann für die Tabelle: 

1. NIMM SCHWERT 

2. N 

3. UNTERSUCHE SCHWERT 

4. WIRF SEIL 

5. OEFFNE TRUHE 

6. LEGE SCHWERT TRUHE 

7. TOETE MONSTER SCHWERT 

8. WARTE 

Diese Sätze sind zwar komprimiert, aber dennoch ist ihr 
Sinn eindeutig. Die Sätze 6 und 7 sind zwar extrem schlech¬ 
tes Deutsch und für uns vielleicht zweideutig, aber für unser 
späteres Analyse-Programm gut verständlich. 

Auffallend ist, daß unsere komprimierten Befehlssätze aus 
maximal drei Worten bestehen. Denken Sie sich doch einmal 
einige komplizierte Befehlssätze aus und sortieren Sie dann 
alle überflüssigen Worte aus. Der Befehl, der dann übrig¬ 
bleibt, besteht garantiert aus nicht mehr als drei Worten. Die¬ 
se Garantie gilt natürlich für Befehlssätze mit nur einem Be¬ 
fehl, es darf also kein »und« oder »,« im Satz Vorkommen. 

Befehlssätze mit mehreren Befehlen werden immer in Ein¬ 
befehlssätze aufgeteilt. 

Aus »NIMM DAS SCHWERT UND GEH NACH NORDEN« 
würde also »NIMM DAS SCHWERT« und »GEH NACH NOR¬ 
DEN«. Die beiden Sätze, die sich aus dieser Trennung erge¬ 
ben, können dann wieder nach obigem Schema zerlegt wer¬ 
den. 

Als nächstes wollen wir unsere komprimierten Befehlssät¬ 
ze auf folgende Elemente untersuchen: 

VERBEN: Wörter wie NIMM, OEFFNE und 

Himmelsrichtungen (N, S). Der Be¬ 
fehl N ist eine Abkürzung für GEH 
NACH NORDEN und kann somit als 
Verb interpretiert werden. 

OBJEKTE: Wörter wie TUER, TRUHE, BAUM, 

HAUS; also im wesentlichen Dinge, 
die man nicht transportieren kann. 
Außerdem Personen im weitesten 
Sinne (zum Beispiel MONSTER). 

GEGENSTÄNDE: Dies sind Objekte, die man transpor¬ 

tieren kann. Zum Beispiel SCHWERT, 
SCHLUESSEL, TRUHE, SEIL. 

Dinge wie die Truhe, können sowohl 
Gegenstände als auch Objekte sein; 
dazu jedoch später. 

Ich werde folgende Abkürzungen verwenden: 

ve für VERB 

ob für OBJEKT 

ge für GEGENSTAND 

Wenn wir die zweite Tabelle auf die obigen Elemente über¬ 
prüfen, so erhalten wir folgende neue Tabelle: 

1. ve + ge 

2. ve 

3. ve + ge 

4. ve + ge 

5. ve 4- ob oder auch ve + ge (falls Truhe transportabel) 

6. ve + ge + ob 

7. ve + ob + ge 

8. ve 

Aus dieser Tabelle können wir folgendens erkennen: 

— jeder Befehlssatz enthält ein und nur ein Verb 

— das Verb steht immer an erster Stelle und ist somit das 
erste Wort des Befehlssatzes 

— nach dem Verb können Objekte und Gegenstände auf¬ 
geführt sein. 

Im allgemeinen sind folgende ve-ob-ge-Kombinationen 
möglich: 

a) ve »WARTE« 

b) ve + ge »NIMM SCHWERT« 
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c) ve + ob »OEFFNE TUER« 

d) ve + ge + ob »LEGE SCHWERT TRUHE« 

e) ve + ob + ge »TOETE MONSTER SCHWERT« 

f) ve + ge + ge »VERKNOTE SEIL BRETT« 

Wir wissen nun also, daß jeder Satz immer mit einem Verb 
beginnt. Das folgende zweite Wort kann dann ein Gegen¬ 
stand oder ein Objekt sein. Das dritte Wort genauso. Schön 
und gut. Wir haben nun einiges an Grammatik-Theorie durch¬ 
gekaut, und wissen wie man Sätze auf das Nötigste kompri¬ 
mieren kann. Wie programmiert man denn nun aber solch ei¬ 
ne Befehlszerlegung? 

Bevor wir mit dem Programmieren beginnen, wollen wir 
deshalb noch einige Gedankenexperimente durchführen: 

Greifen wir doch noch einmal auf den vorangegangenen 
Abschnitt zurück, in dem wir das Befehlseingabemodul be¬ 
handelt haben. 

Es ist Ihnen sicherlich bereits klar, daß dieses Modul immer 
vor dem Befehlszerlegungsmodul (das wir nun besprechen) 
aufgerufen werden muß, denn bevor man einen Befehlssatz 
zerlegen kann, muß man ja erst einmal einen haben. Wenn 
man das Befehlszerlegungsmodul aufruft, so läßt es den 
Spieler einen Befehl eingeben, der als BES gespeichert wird. 


Zum Beispiel: BES = " NIMM DAS SCHWERT" 

Dieser Befehlsstring BES wird dann in das Befehlszerlege- 
modul geschickt, wo es weiterbehandelt wird. 

Das Schema ist folgendermaßen: 



Das Befehlseingabemodul liefert also den Befehlsstring 
BES an das Befehlszerlegungsmodul. Was macht das Zer¬ 
legungsmodul nun mit dem String BES? 

Während das Befehlseingabemodul nur eine einzige Auf¬ 
gabe hat, nämlich als eine komfortable INPUT-Routine zu fun¬ 
gieren, muß das Befehlszerlegemodul schon wesentlich 
mehr leisten. 

In dem Zerlegungsmodul sind mehrere Module vereint, die 
folgende Aufgaben haben: 

1. String-Zerlegung 

2. String-Sortierung 

3. String-Codierung 

Diese Aufgabenbereiche wollen wir nun einmal im Einzel¬ 
nen betrachten. 

Wir wollen bei den folgenden Betrachtungen von einem 
Befehlsstring BES ausgehen, der so aussieht: 

BE$= "NIMM DAS SCHWERT". 

Dieser Befehlsstring wird nun also vom Befehlseingaben¬ 
modul zum Befehlszerlegungsmodul geschickt. 

Im Befehlszerlegungsmodul geschieht dann folgendens 
mit dem BES: 

1. Der erste Schritt besteht darin, den Befehlsstring BES 
in einzelne Worte aufzuschlüsseln. 

Jedem Wort des Befehlsstrings BES wird ein neuer 
String zugeordnet. Diese neuen Strings werden als 
BE$(1) bis BE$(X) bezeichnet, wobei X die Zahl der im 
Satz vorkommenden Worte darstellt. 

Für unser Beispiel würde dann gelten: 

BES = "NIMM DAS SCHWERT" 

BE$(1)="NIMM" 

BE$(2)= "DAS" 

BE$(3) = "SCHWERT" 


2. Der zweite Schritt besteht anschließend darin, den Satz 
zu komprimieren, also alle überflüssigen Worte aussor- 
tieren. Auszusortierende Worte sind Worte, die zum Ver¬ 
ständnis des Satzsinns überflüssig sind. 

Also Wörter wie DER, DIE, DAS, DEN, DEM, UEBER, 
UNTER, AUF VON, IN etc. 

Für unser Beispiel gilt hier: 

BES = "NIMM DAS SCHWERT" 

BE$(1 ) = "NIMM * 

BE$(2)= "SCHWERT" 

Eigentlich ist es falsch, dies als den zweiten Schritt zu 
bezeichnen, da der zweite Schritt parallel zum 1. Schritt 
abläuft. Es ist also nicht so, daß der Satz in BE$(1) bis 
BE$(X) zerlegt wird und dann die überflüssigen Wörter 
aussortiert werden und somit BE$(1) bis BE$(X) neu 
formatiert werden muß. 

Dieser parallele Ablauf sieht also so aus: 

Das Zerlegemodul holt sich ein Wort aus dem Befehls¬ 
string und überprüft sofort, ob es überflüssig ist oder 
nicht. Wenn ja, dann wird es erst gar nicht in die Befehls¬ 
wortkette BE$(1) bis BE$(X) aufgenommen. 

Für die folgenden Seiten und Abschnitte sind Kennt¬ 
nisse über den Umgang mit dem DIM-Befehl notwendig. 

3. Was nun folgt ist die String-Codierung. 

Wie das Wort Codierung bereits verrät, kommen jetzt 
Zahlen mit ins Spiel. Der Trick besteht darin, den gesam¬ 
ten Befehlssatz in eine Zahl umzuwandeln. Dies hat den 
Vorteil, daß viel Speicherplatz gespart wird. Damit 
jedoch der Überblick über die vielen Zahlen gewährlei¬ 
stet bleibt, ist es unbedingt erforderlich, ständig schrift¬ 
liche Notizen zu machen (Tabellen etc.) 

Be vor der Computer Befehle analysieren kann, braucht 
er erst einmal ein Vokabular, einen Wortschatz, auf den 
er ständig zurückgreifen kann. 

Wie Sie bereits wissen, zeichnet sich ein gutes Adven- 
ture hauptsächlich durch einen umfangreichen Wort¬ 
schatz aus. Das eigentliche Problem besteht nun darin, 
einen möglichst großen Wortschatz in möglichst wenig 
Speicher zu stecken. Es gibt zahlreiche Möglichkeiten, 
dieses Problem zu lösen. Leider jedoch auch viele 
schlechte. 

Sicherlich kennen auch Sie Adventures, bei denen die 
Aufgabe des Spielers hauptsächlich darin besteht, den 
spärlichen Wortschatz des Spiels zu erraten. Solche 
Spieler belohnen Befehlseingaben ständig mit Antwor¬ 
ten wie »Ich kenne dieses Wort nicht!« etc. Andere 
Spiele bringen nicht einmal eine Fehlermeldung, son¬ 
dern ignorieren den Befehl einfach. Durch solche Feh¬ 
lermeldungen wird der Spieler ständig vom eigentlichen 
Adventure abgelenkt und verliert schnell die Lust am 
Weiterspielen. 

Im Rahmen dieses Kurses werde ich Ihnen deshalb ein 
Befehlsanalysesystem vorstellen, das kaum Schwä¬ 
chen hat und universell für jedes Adventure einsetzbar 
ist. 

Bei diesem System sind im Computer Wort-Tabellen 
gespeichert, die jedem Wort einer Gruppe eine Zahl 
zuordnen. 

Die verschiedenen Wortgruppen sind 
— Verben 
— Gegenstände 
— Objekte 

sowie — Personen —, 

die wir zunächst vernachlässigen wollen. Natürlich gibt 
es auch eine Tabelle, die alle Wörter enthält, die aussor¬ 
tiert werden müssen. 

Und so sehen diese Tabellen aus: 
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WORTGRUPPEN-TABELLEN 



VERBEN 



GEGENSTÄNDE 


NIMM 

= 

1 

SCHWERT 

= 

1 

VERLIERE 

= 

2 

SCHLUESSEL 

= 

2 

OEFFNE 

= 

3 

SEIL 

= 

3 

GIB 

= 

4 

FACKEL 

= 

4 

SAGE 

= 

5 

ARMBRUST 

= 

5 

INVENTUR 

= 

6 

HELM 

= 

6 

BEFESTIGE 

= 

7 

SCHILD 

= 

7 

OBJEKTE 



PERSONEN 


FENSTER 

= 

1 

GEIST 

= 

1 

TUER 

= 

2 

MONSTER 

= 

2 

TRUHE 

= 

3 

THORIN 

= 

3 

KISTE 

= 

4 

GOMMEL 

= 

4 

FALLTUER 

= 

5 

ORK 

“ 

5 


Die Beispieltabellen sind nur sehr kurz gehalten. In Wirk¬ 
lichkeit können sie beliebig lang sein, und je länger sie sind, 
desto größer ist der Wortschatz des Adventures. 

Wir haben vier Grundtabellen: Verben, Gegenstände, 
Objekte und Personen. Die Tabellen ordnen jedem Wort, das 
in ihnen enthalten ist, eine Zahl zu. Diese Zahlen sind jedoch 
nicht willkürlich gewählt, sondern das erste Wort jeder 
Tabelle hat immer den Wert 1 und das letzte Wort immer den 
Wert X, wobei X die Anzahl der in der Tabelle vorkommenden 
Worte darstellt. 

Wie die Tabelle programmiert wird, soll uns im Moment noch 
nicht interessieren. Wir wissen nur, daß wir verschiedene 
Tabellen haben, die bestimmten Worten Zahlen zuordnen. 
Sicher erinnern Sie sich daran, daß ich Ihnen empfohlen 
habe, während und vor dem Programmieren ständig schrift¬ 
liche Notizen zu machen (Heft zu führen). Gerade bei diesen 
Tabellen ist es wichtig, daß sie in sauberer schriftlicher Form 
vorliegen. Sie werden während der Programmierung des 
Spiels ständig benötigt. 

Gehen wir doch noch einmal von unserem Beispielsatz 
aus: 

Wir hatten BES = "NIMM DAS SCHWERT" 

Diesen Satz haben wir dann in einzelne Worte zerlegt. Es 
ergab sich: 

BE$(1) = "NIMM" 

BE$(2) = "DAS" 

BE$(3) = "SCHWERT" 

Als nächstes hatten wir alle unwichtige Worte aussortiert 
und erhielten so: 

BE$(1) = "NIMM" 

BE$(2) = "SCHWERT" 

Die Zahlen in den Klammern hinter BES geben an, wo das 
Wort im Satz steht — BE$(1) ist also das erste Wort im Satz 
(das Wort mit dem der Satz beginnt). Denken wir noch einmal 
zurück an unsere kleine Grammatiklehre, in der wir folgendes 
festgestellt haben: 

1. Das Verb ist immer das erste Wort im Satz (also BE$(1)) 

2. Die folgenden Worte sind Objekte, Gegenstände oder 
Personen 

Nun ist es nicht mehr schwer, zu erraten, wie die Befehls¬ 
codierung funktioniert: 

Wir nehmen unser erstes Wort BE$(1) und suchen dann in 
der Tabelle für die Verben (da das erste Wort immer ein Verb 
ist) welche Zahl ihm zugeordnet ist. Für das Wort BE$(1) = 
"NIMM" erhalten wir gemäß Tabelle den Wert 1. 

Wir können somit sagen: VERBZAHL = 1 

Nun kommen wir zu unserem zweiten Wort BE$(2). Da wir 
nicht wissen, ob BE$(2) ein Gegenstand, ein Objekt oder 
eine Person ist, müssen wir in allen drei Tabellen nach dem 
Wort suchen. 
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Als Ergebnis erhalten wir dann entweder eine Gegen¬ 
stands-, eine Objekt- oder eine Personenzahl. 

Für unser Wort BE$(2) = "SCHWERT" erhalten wir also 
die Gegenstandszahl 1, da BE$(2) in der Tabelle für Gegen¬ 
stände steht. 

Die gesamte Codierung für unseren Satz BES = "NIMM 
DAS SCHWERT" hat uns also folgende Werte geliefert: 
VERBZAHL = 1 
GEGENSTANDSZAHL = 1 
OBJEKTZAHL = 0 
PERSONENZAHL = 0 

Damit haben wir nun eine Möglichkeit kennengelernt, mit 
der man einen Satz durch Zahlen ausdrücken kann, die natür¬ 
lich in Tabellen mit Wörtern definiert sein müssen. 

Bei unserem Beispiel haben wir als Wert für die Objektzahl 
und die Personenzahl jeweils 0 erhalten. Dies liegt daran, daß 
in unserem Ausgangssatz »NIMM DAS SCHWERT« weder 
eine Person noch ein Objekt Vorkommen. Das Schwert ist ein 
Gegenstand; Objekte sind Dinge, die nicht transportiert wer¬ 
den können (wie wir bereits definiert hatten). 

Allerdings hat dieses Analyse- beziehungsweise Codie¬ 
rungssystem noch einen Haken: 

Was passiert, wenn in einem Satz zwei Gegenstände auf- 
treten? Zum Beispiel: 

BE$= »VERKNOTE DAS SEIL AM SCHWERT«. 

In diesem Satz treten zwei Gegenstände, Seil und Schwert, 
auf. In unserer Gegenstands-Tabelle hat Schwert den Wert 1 
und Seil den Wert 3. Was ist aber nun unsere Gegenstands¬ 
zahl? 

Um dieses Problem zu lösen, müssen wir noch einmal auf 
unsere Tabelle, die alle möglichen ve-ob-ge-Kombinationen 
darstellt, zurückgreifen (die Personen werden vorerst noch 
vernachlässigt). 

Auj dieser Tabelle können wir folgendes lesen: 

1. Ein Befehlssatz enthält maximal 1 Verb — also nur 1 
Verbzahl. 

2. Ein Befehlssatz enthält maximal 1 Objekt — also nur 1 
Objektzahl. 

3. Ein Befehlssatz kann bis zu maximal zwei Gegenstände 
enthalten — folglich brauchen wir auch zwei Gegen¬ 
standszahlen. 

Wir bezeichnen diese als 1. Gegenstandszahl 
und 2. Gegenstandszahl 

Was ist nun mit den Personen los? 

Lassen Sie uns dazu folgende Beispiele von dem Adven- 
ture »The Hobbit« hernehmen, in dem besonders viele Perso¬ 
nen auftreten. 

a) SAGE THORIN »GIB MIR DIE KARTE«. 

b) SAGE ELROND »LIES DIE KARTE«. 

c) SAGE BARD »ERSCHIESSE DEN DRACHEN«. 

Satz a und b sind eindeutig. Es kommt nur eine Person vor, 
und somit wird zur Codierung auch nur eine Personenzahl 
benötigt. In unserem Beispiel c kommen jedoch zwei Perso¬ 
nen vor — Bard und der Drache. Dennoch wird nur eine Per¬ 
sonenzahl benötigt. 

Dies liegt daran, daß vom Befehlssatz nur eine Person 
betroffen ist. Die Person ist Bard. Der Drache kommt wie¬ 
derum im Befehlssatz vor, der für Bard gilt. 

Punkt c ist damit ein Beispiel für einen indirekten Befehl. 
Während wir bisher nur dem Computer direkt Befehle gaben, 
erhält der Computer jetzt den Befehl, einer bestimmten Per¬ 
son etwas zu befehlen (sagen). 

Der Befehl für die Person Bard »ERSCHIESSE DEN DRA¬ 
CHEN« wird im Programm nicht vom Modul behandelt, das wir 
gerade aufbauen, sondern wird an ein Modul weitergeleitet, 
das für Reaktionen von Personen verantwortlich ist. Dazu 
jedoch später. 

Wir wissen nun allerdings, daß im Modul, das für unsere 
direkten Befehle zuständig ist, nur eine Personenzahl benö- 
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tigt wird, da wir nie mehr als eine Person gleichzeitig anspre¬ 
chen können. 

Wir können also zusammenfassen, daß bei der Codierung 
eines Befehlssatzes folgende Werte ausgegeben werden: 

VERBZAHL 

1. GEGENSTANDSZAHL 

2. GEGENSTANDSZAHL 

OBJEKTZAHL 

PERSONENZAHL 

Hiermit sind nun auch schon die ersten Schritte auf dem 
Weg getan, der uns zum Programmieren der kompletten 
Befehlsanalyse führen wird. Im folgenden Diagramm ist das 
Ablaufschema unseres neuen Moduls (dem Befehlszerle- 
gungs- und Codierungs-Modul) noch einmal in seinen Grund¬ 
zügen zusammengefaßt. 


VERBZAHL = 7 

1. GEGENSTANDSZAHL = 3 

2. GEGENSTANDSZAHL = 0 
OBJEKTZAHL = 1 
PERSONENZAHL = 0 

Hiermit wäre die Therorie für unser neues Modul nahezu 
abgeschlossen. Allerdings müssen wir später noch Fälle 
betrachten und berücksichtigen, bei denen lange Sätze auf- 
treten, die UND-Worte enthalten. 

Programmierung des Zerlege-Chiffrier-Moduis 

Bevor das Modul arbeiten kann, müssen die Tabellen pro¬ 
grammiert werden. Für unsere Verb-Tabelle geht das folgen- 


Ablaul'Dlagramm 



Eingabe 


\ 


Bearbeitung 


/ 


Verbenzahl — VE 

1. Gegenstand — Gl 

2. Gegenstand — G2 

Objektzahl — OB 
Personenzahl — PE 


1 Ausgabe 


Hier noch einige Beispiele: 

Geben wir als Befehlsstring BE$=»OEFFNE DIETUER«in 
das Codier-Modul, so erhalten wir als Ausgabe: 

VERBZAHL = 3 

1. GEGENSTANDSZAHL = 0 

2. GEGENSTANDSZAHL = 0 
OBJEKTZAHL = 2 
PERSONENZAHL = 0 

(alle Angaben gemäß unserer Beispieltabelle) 


dermaßen: 

Die einzelnen Verben werden zunächst in DATA-Zeilen 
abgelegt. 

Es gilt also: 

..DATA NIMM, VERLIERE, OEFFNE, GIB, SAGE, INVEN¬ 
TUR, BEFESTIGE 

Nun brauchen wir eine Variable, die die Anzahl der Verben 
beinhaltet. Für die Verb-Tabelle sei dies die Variable VZ (VZ = 
Anzahl der Verben — nicht zu verwechseln mit der Verbzahl 
VE). 

Für unsere Verb-Tabelle, die aus sieben Worten besteht, gilt 
also: 

VZ = 7 

Für unsere Verb-Tabelle müssen wir nun ein Feld indizieren: 
Das Feld für die Verb-Tabelle bestimmen wir als Stringfeld 
VE$. Es gilt also: 

DIM VE$(VZ) 

Falls Sie mit dem DIM-Befehl noch nicht genug vertraut 
sind, sc .ollten Sie gleich im Commodore-Handbuch ab Seite 
98 nachlesen. 

Nun müssen wir das Feld füllen: 

FOR 1=1 TO VZ : READ VE$(I): NEXTI 
Nach diesem Verfahren werden alle Tabellen programmiert. 
Für die Verb-Tabelle sieht das so aus: 

VE$(1) = "NIMM" 

VE$(2) = "VERLIERE" 

VE$(3) = "OEFFNE" 

VE$(4) = "GIB" 

VE$(5) = "SAGE" 

VE$(6) = "INVENTUR" 

VE$(7) = "BEFESTIGE" 

Wir nehmen nun einmal an, wir hätten ein Verb 
BE$(1)= "OEFFNE". 

Wenn wir wissen wollen, welche Verbzahl BE$(1) hat, so 
gehen wir folgendermaßen vor: 


Für die Eingabe BES=»VERLIERE DIE FACKEL« erhalten 
wir die Ausgabe: 

VERBZAHL = 2 

1. GEGENSTANDSZAHL = 4 

2. GEGENSTANDSZAHL = 0 
OBJEKTZAHL = 0 
PERSONENZAHL = 0 


10 FOR 1=1 TO VZ 

20 IF BE$(1) = VE$(I) THEN VE=I 

30 NEXTI 

40 PRINT "VERBZAHL = ";VE 
Wir können Zeile 20 auch so ändern, daß Abkürzungen 
akzeptiert werden. 

20 IF BE$(1) = LEFT$(VE$(I),LEN(BE$(1)) THEN VE=I 


Für die Eingabe BE$=»GIB DEM GEIST DEN SCHLUES- 
SEL« erhalten wir die Ausgabe: 

VERBZAHL = 4 

1. GEGENSTANDSZAHL = 2 

2. GEGENSTANDSZAHL = 0 
OBJEKTZAHL = 0 
PERSONENZAHL = 1 

Für die Eingabe BE$=»BEFESTIGE DAS SEIL AM FEN¬ 
STER« erhalten wir die Ausgabe: 


Der Spieler kann nun also statt VERLIERE auch einfach nur 
V eingeben, und das Programm versteht trotzdem, was 
gemeint ist. Es werden jedoch nur Abkürzungen verstanden, 
die eindeutig sind. Will man das Verb SUCHE mit S abkürzen, 
so darf in der Verbtabelle neben dem Verb SUCHE kein ande¬ 
res Verb mehr Vorkommen, das mit S beginnt. 

Ist dies jedoch der Fall, so wird stets das Verb erkannt, das 
in der Tabelle den höheren Wert hat. Dies ist jedoch nicht tra¬ 
gisch, da der Spieler im Laufe des Spiels schnell herausfinden 
wird, wie er Wörter abkürzen muß, damit sie richtig interpre¬ 
tiert werden. 
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Bitte geben Sie nun einmal Listing 4 ein: 


10 INPUT"WAS NUN "5 BE*:REM BEFEHL <004> 
20 EOSUB 51000 :REM ZERLEGUNG <019> 
30 PRINT:PRINT"BE*=";CHR*(34);BE*; CHR*(34) 

:PRINT <227> 
40 FDR 1=1 TO 10 <218> 
50 :PRINT"BE* (";RIGHT*(STR*(I),LEN(STR*<I) 

> — 1>;" ) = ";CHR*(34>;BE* <I> 5 CHR* <34> <034> 
60 NEXT:PRINT <145> 
70 GOTO 10 <048> 
51000 REM BE* IN BE*(1)-BE*(10) ZERLEGEN <227> 
51010 FOR 1=1 TO 10:BE*(I>="":NEXT <236> 
51020 WZ=1 <167> 
51030 FOR 1=1 TO LEN(BE*) <045> 
51040 :IF MID*<BE*,1,1)=“ "THEN WZ=WZ+l:GO 

TO 51060 <207> 
51045 :IF WZ>10 THEN PRINT"EINGABE IST ZU 

LANG !":I=LEN(BE*)+1:GOTO 51060 <147> 
51050 :BE*(WZ)=BE*(WZ)+MID*(BE*,I,1) <1B5> 
51060 NEXT I <006> 
51070 RETURN <211> 


Listing 4. 


Wenn Sie das Programm anschließend starten, so werden 
Sie um die Eingabe eines Befehls BES gebeten. 

Wenn Sie einen Befehl eingeben und anschließend 
RETURN drücken, so wird auf dem Bildschirm ausgegeben, 
wie der Befehlsstring BES in BE$(1) bis BE$(10) zerlegt wird. 
Es können also nur Sätze eingegeben werden, die nicht mehr 
als zehn Worte enthalten (natürlich kann das leicht ausgebaut 
werden). 

Geben Sie einmal verschiedene Sätze ein, und sehen Sie 
was passiert. Dieses Programm, in dem der Befehlsstring 
BES in einzelne Worte zerlegt wird, was ja der erste Schritt zur 
Befehlscodierung ist, hat jedoch noch einen kleinen Haken. 

Wenn man zwischen den Worten im Satz mehrere SPACEs 
läßt, so werden diese SPACEs als Worte interpretiert. Diesen 
Fehler werden wir bald beheben. 

Unser neues Modul soll immer ab Zeile 51000 stehen, also 
direkt nach dem Befehlseingabe-Modul. 

Dokumentation zu Listing 4: 

10 bis 70 sind nur zur Demonstration des Moduls 51000 
gedacht, und müssen deshalb in ihrer Funktions¬ 
weise hier nicht näher besprochen werden. 
51000 Beginn des Zerlege-Moduls 
51010 Hier wird das Feld, das die einzelnen Wörter des 
Befehlssatzes enthält, gelöscht, damit später 
keine Irrtümer auftreten können. 

51020 Hier wird die Wort-Zählvariable WZ auf 1 gesetzt. 
51030 Diese Schleife durchläuft den Befehlsstring BES 
vom ersten bis zum letzten Zeichen. 

51040 Prüfung, ob es sich beim jeweiligen Zeichen um 
ein Leerzeichen (SPACE) handelt. Wenn ja, so 
weiß das Programm, daß ein neues Wort beginnt. 
In diesem Fall wird die Wort-Zählvariable WS um 1 
erhöht. 

51045 Hier wird verhindert, daß die zulässige Wortzahl 
von 10 überschritten wird. 

51050 Das aktuelle Wort BE$(WZ) wird aufgebaut. 
51060 Sprung zum Beginn der Schleife I 
51070 Ende des Moduls 

Dieses Modul liefert nach Aufruf bis jetzt also die Werte 
BE$(1) bis BE$(WZ) — die einzelnen Worte von BES und WZ 
— die Variable die für die Anzahl der Wörter steht. 

Die Funktionsweise dieses Moduls dürfte bis jetzt eigent¬ 
lich leicht zu verstehen sein. Falls Sie Schwierigkeiten haben, 
so gehen Sie das bisher Gesagte noch einmal ausführlich 
durch. 

Der nächste Schritt zur Fertigstellung des Moduls besteht 
nun, wie bereits theoretisch behandelt, darin, überflüssige 


Worte auszusortieren, beziehungsweise erst gar nicht in die 
Wortkette BE$(1) bis BE$(10) aufzunehmen. 

Wir müssen unser erstes Programm also entsprechend 
Listing 5 verbessern: 


5 GOSUB 60000:REM TABELLEN DEFFINIEREN <183> 
10 INPUT"WAS NUN ";BE*:REM BEFEHL <004> 
20 GOSUB 51000 :REM ZERLEGUNG <019> 
30 PRINT:PRINT"BE*=";CHR*(34);BE*;CHR*(34) 

:PRINT <227> 
40 FOR 1=1 TO 10 <218> 
50 :PRINT"BE*(";RIGHT*(STR*(I > ,LEN(STR*(I) 

)—1);“)=";CHR*(34);BE*(I);CHR*(34) <034> 
60 NEXT:PRINT"{DOWNJANZAHL DER WOERTER (WZ 

) s "5 WZ:PRINT <162> 
70 GOTO 10 <048> 
51000 REM BE* IN BE*(1)-BE*(10) ZERLEGEN <227> 

51010 FOR 1 = 1 TO 10:BE*(I> ..NEXT <236> 

51020 WZ=1 <167> 
51030 FOR 1=1 TO LEN(BE*) <045> 
51040 :IF MID*(BE*,I,1)=" "THEN GOSUB 5110 

0:GOTO 51060 <100> 
51045 :IF WZ>10 THEN PRINT"EINGABE IST ZU 

LANG !":I=LEN(BE*>+1:GOTO 51060 <147> 
51050 :BE*(WZ)=BE*(WZ > +MID*(BE*,1,1) <185> 
51060 NEXT I <006> 
51070 RETURN <211> 
51100 REM AU* WOERTER AUSSORTIEREN <120> 
51110 IC=0:FOR 11=1 TO AZ <050> 
51120 :IF BE*(WZ)=AU*(II)THEN IC=1 <054> 
51130 NEXT II <125> 
51140 IF IC=0 THEN WZ=WZ+1:RETURN <226> 
51150 BE*(WZ)="":RETURN <000> 
60000 REM *** TABELLEN—DEFFINIEREN *** <104> 
60005 DATA DER,DIE,DAS,DEN, ,UEBER,UNTER,A 

UF,IN <002> 
60010 AZ=9:FOR 1=1 TO AZ:READ AU*(I):NEXT <209> 
60015 RETURN <231> 


Listing 5. 


Dokumentation zum Listing: 

5 Hier wird das Unterprogramm, das die Tabel¬ 

len definiert, aufgerufen. 

10 bis 70 Sind wiederum nur für die Demonstration 
des Programmes nötig. 

51000-51070 Sind analog zu Listing 4 — jedoch mit einer 
kleinen Änderung in Zeile 51040. 

51040 Hier wird, wie auch schon im ersten Pro¬ 

gramm festgestellt, wann ein neues Wort 
beginnt (ein Leerzeichen SPACE wird 
gesucht in BE$). Angenommen wir haben 
ein Leerzeichen gefunden, so wurde im 
ersten Programm das aktuelle Wort BE$(1) 
bis BE$(10) übernommen und die Wort- 
Zählvariable WZ um 1 erhöht (um das näch¬ 
ste Wort zu bilden). Dadurch wurde jede 
durch SPACE getrennte Zeichenfolge als 
Wort anerkannt (so ergab sich auch der 
oben erwähnte Fehler, bei dem mehrere 
Leerzeichen hintereinander als Wort inter¬ 
pretiert wurden). Zur Korrektur dieses Feh¬ 
lers und zur Aussortierung der überflüssi¬ 
gen Wörter wird deshalb jetzt ein kleines 
Unterprogramm ab Zeile 51100 aufgerufen, 
in dem entschieden wird, ob das aktuelle 
Wort BE$(WZ) mit in die Wortkette BE$(1) 
bis BE$(10) aufgenommen wird oder nicht. 

60000-60015 Hier wird die Tabelle für die Wörter, die aus¬ 
sortiert werden sollen, definiert, nach dem 
Schema, das wir bereits besprochen haben. 
Das Stringfeld für die auszusortierenden 
Wörter sei AUS. 

Die Anzahl der Wörter in der AU$-Tabelle ist 
AZ. 
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Und so sieht dieses Unterprogramm aus: 

Start des Unterprogrammes 
Die Check-Variable IC wird auf 0 gesetzt. Die 
Schleife II durchläuft sodann die AU$- 
Tabelle. 

Prüfung, ob es sich bei dem aktuellen Wort 
BE$(AW) um ein Wort handelt, das in der 
AU$-Tabelle vorkommt, und somit aussor¬ 
tiert werden muß. Ist dies der Fall, so wird die 
Check-Variable IC auf 1 gesetzt. 

Sprung zum Schleifenbeginn 
Nachdem die Schleife II durchlaufen ist, 
wird der Wert der Check-Variable IC geprüft. 
Ist IC=0, so kommt das aktuelle Wort nicht 
in der AU$-Tabelle vor und muß auch nicht 
aussortiert werden; es wird in die Wortkette 
BE$(1) bis BE$(10) übernommen, der Wort¬ 
zähler WZ wird um 1 erhöht und das Unter¬ 
programm ist beendet. 

Die Bedingung in Zeile 51140 wurde nicht 
erfüllt, also muß es sich bei dem aktuellen 
Wort BE$(AW) um ein Wort der AU$-Tabelle 
handeln, es muß aussortiert werden. 

Dazu wird BE$(AW) gelöscht und der 
aktuelle Wortzähler WZ nicht erhöht. Die 
Check-Variable IC dient uns also zum Über¬ 
prüfen von Bedingungen. 

Starten Sie das Programm mit RUN. Da es durch die Zeilen 
10 bis 70 dokumentiert ist, braucht der Programmablauf hier 
nicht näher erklärt zu werden. Geben Sie bitte mehrere 
Befehlssätze ein, und untersuchen die Ergebnisse. Wenn Sie 
allerdings wirre Buchstabenketten eingeben, so werden 
diese akzeptiert, solang sie nicht in der AU$-Tabelle vertreten 
sind. Wenn Sie die DATA-Zeile betrachten, in der die Worte 
stehen, die aussortiert werden sollen (die also die AU$- 
Tabelle bilden), so werden Sie dort auch ein Leerzeichen fin¬ 
den; es ist nötig, um den bereits besprochenen Fehler (meh¬ 
rere Leerzeichen zwischen den Wörtern in BES) zu beheben, 
Leerzeichen werden nun nicht mehr als Worte akzeptiert. 

Als kleine Zwischenübung können Sie einmal versuchen 
die AU$-Tabelle zu erweitern. Sie müssen dazu nur die DÄTA- 
Zeilen erweitern und die AZ-Variable entsprechend anpas¬ 
sen. 

Unser nächster Arbeitsschritt besteht nun darin, die Wort- 
Codierung zu programmieren. 

Zunächst wieder einige Grundbetrachtungen: 

Bisher haben wir immer nur Befehlssätze betrachtet, die 
nur einen Befehl enthielten, in denen also kein UND vorhan¬ 
den war. 

Für die folgenden Betrachtungen und Programme müssen 
jedoch auch Sätze, die mehrere Befehle enthalten, berück¬ 
sichtigt werden. 

Zu Beginn habe ich Ihnen bereits eine kleine Eingabe- 
Szene aus dem Adventure »The Hobbit« dargestellt. Daraus 
war zu erkennen, daß bei dem Analysesystem des Hobbits 
immer nur ein Befehl nach dem anderen ausgeführt werden 
kann. Dies ist daran zu erkennen, daß der Computer auf einen 
Befehlssatz wie »Nimm das Schwert und das Seil« nicht etwa 
»Sie nehmen das Schwert und das Seil« antwortet, sondern 
sich erst mit »Sie nehmen das Schwert« und danach mit »Sie 
nehmen das Seil« meldet. 

Betrachten wir einmal den folgenden Befehlssatz, der 
mehrere Befehle enthält: BES=»NIMM DAS SCHWERT UND 
DAS SEIL UND GEH NACH NORDEN«. 

Nachdem das Modul den Satz zerlegt und überflüssige 
Wörter AUS aussortiert hat, liegt folgendes Ergebnis vor: 
BE$(1) = "NIMM" 

BE$(2) = "SCHWERT" 

BE$(3) = "UND" 


BE$(4) = "SEIL" 

BE$(5) = "UND" — bisher nicht berücksichtigt 
BE$(6) = " NORDEN" — bisher nicht berücksichtigt 

Wörter wie UND dürfen nicht aussortiert werden. 

Bitte wundern Sie sich nicht, warum ich das Verb »GEH« 
aussortiert habe — Richtungsangaben sind Ausnahmefälle, 
die in einem der nächsten Abschnitte ausführlich behandelt 
werden. 

Damit die folgenden Erklärungen nicht zu kompliziert wer¬ 
den, wollen wir BE$(5) und BE$(6) zunächst wieder strei¬ 
chen. 

Wir betrachten also nur noch BE$(1) bis BE$(4), also einen 
Befehlssatz, der zwei Befehle enthält. 

Da das Programm ein Wort nach dem anderen liest, brau¬ 
chen wir einen Wortzähler, den wir mittels der Variablen WZ 
aufbauen wollen. 

Am Anfang des Satzes, also vor Beginn des Lesevorgangs 
wird WZ auf 1 gesetzt. 

Nun liest der Computer das Wort BE$(WZ). 

Nachdem er es gelesen und codiert hat, erhöht er den 
Wortzähler um 1, es gilt also WZ=WZ + 1. 

Nun wird überprüft, ob das Wort BE$(WZ) existiert, das 
heißt, es wird überprüft, ob der String BE$(WZ) Zeichen ent¬ 
hält oder er " " (leer) ist. 

Erweist sich der String BE$(WZ) als nicht leer, so wird der 
Lesevorgang fortgesetzt. Andernfalls wird er beendet. 

Das Ablaufschema für das Lesen des Befehlssatzes sieht 
also folgendermaßen aus: 



Achtung: Mit ein Wort LESEN ist das gleiche wie mit ein 
Wort CODIEREN gemeint. 

Dieses Ablaufschema ist noch relativ einfach zu verstehen. 
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Für unsere Zwecke ist es im Moment jedoch nicht aus¬ 
reichend. Es reicht höchstens für Programme die nur Zwei- 
Wort-Befehle verstehen. 

Um dies besser verstehen zu können, müssen wir einen 
Blick auf das gesamte Ablaufschema eines Adventures wer¬ 
fen: 



Das Befehlseingabemodul und das Befehlscodiermodul 
(worin natürlich auch Zerlegung und Aussortierung enthalten 
sind) sind mit einem Kästchen gestrichelt umrandet. Wir wer¬ 
den diese Module schon bald zu einem einzigen Modul 
zusammenfassen, das für jedes Adventure universell er¬ 
setzbar ist. In dem gestrichelten Kästchen ist unter anderem 
auch das Ablaufschema des Lesevorganges, das wir gerade 
zuvor behandelt haben, enthalten. 

Das Gesamtablaufschema ist eigentlich relativ leicht zu 
verstehen. Am Anfang erscheint das Titelbild des Spiels und 
die Spielanleitung, und es werden Tabellen eingelesen, even¬ 
tuell Sprites definiert etc. Danach beginnt das Spiel. 

Dabei wird zunächst das Befehlseingabe- und Codiermo¬ 
dul aktiviert. 

Daraufhin geht es zum Actionmodul. Dies ist das eigentli¬ 
che Adventure, das heißt, das Actionmodul ist von Spiel zu 
Spiel verschieden. 

Im Actionmodul wird auf Befehle reagiert, Lagebericht 
erstattet, und außerdem werden Personen, wie Monster 
gesteuert, bewegt, lebendig gemacht. Das Actionmodul stellt 
auch die Aufgaben und verwaltet die Spielkarte, das heißt es 
weiß, wo gerade welcher Gegenstand liegt, wo sich jede Per¬ 
son befindet, was sie gerade macht, welche Türen offen und 


welche geschlossen sind und noch vieles mehr. Der Umfang 
dieses Moduls bestimmt letztendlich die Qualität und Länge 
des Spiels. 

Am Ende des Actionmoduls wird bestimmt (geprüft), ob 
das Spiel zu Ende ist (verloren oder gewonnen), oder ob es 
weiter geht, also zurück zum Befehlseingabe- und Codier¬ 
modul. 

Sie sehen also, wie einfach das Grundprinzip eines Adven¬ 
tures eigentlich ist. Und dies ist ja schließlich das Ziel dieses 
Kurses. Sie sollen lernen sich gute Adventures auszuden¬ 
ken, und diese dann möglichst problemlos und ohne großen 
Aufwand in ein anderes Programm umzusetzen. 

Nachdem das Befehlszerlegemodul den Befehlsstring sor¬ 
tiert und in einzelne Worte zerlegt hat, gibt es diese Worte 
BE$(1) bis BE$(X) an das Codiermodul weiter. 

Der Sinn der vier dort vorkommenden Wörter lautet in Kurz¬ 
form: 

NIMM SCHWERT UND SEIL 

Wie liest das Codiermodul diesen Satz nun eigentlich? 

Eine erste Antwort auf diese Frage ist, wie bereits bespro¬ 
chen, »Wort für Wort«. 

Welches Wort bearbeitet wird, bestimmt die Variable WZ 
(Wortzähler). Damit das Lesen beim ersten Wort beginnt, 
setzten wir die Wortzähl-Variable WZ am Anfang des Lese¬ 
beziehungsweise Codiermoduls auf 1. 

Sodann wird das Wort BE$(WZ) gelesen, also codiert. Und 
das geht folgendermaßen: 

Zuerst wird die Check-Variable IC und die Wortvariablen auf 
0 gesetzt. 

IC = 0 : VE=0 : G1=0 : G2=0 : OB=0 : PE=0 

Nun wird überprüft, ob der String BE$(WZ) in der Verb- 
Tabelle enthalten ist. 

FORI: 1 TO VZ : REM VZ = Anzahl der Verben 

i; E$(WZ) = VE$(I) THEN IC=1 : VE=I 

NEXTI 

Wird bei diesem Vorgang also ein Verb gefunden, so wird 
dieses Verb zur Verbzahl VE codiert und die Check-Variable 
IC auf 1 gesetzt. Auf die gleiche Art und Weise werden auch 
alle anderen Wort-Tabellen durchlaufen (Gegenstände, 
Objekte, Personen). 

Es werden also alle Tabellen auf das Wort BE$(WZ) hin 
untersucht. Sie könnten nun einräumen, daß wir für das erste 
Wort doch eigentlich nur die Verb-Tabelle durchsuchen müß¬ 
ten, da das erste Wort eines Satzes ja immer nur ein Verb sein 
kann. Damit haben Sie recht. Ich schlage jedoch trotzdem die 
obige Methode vor. Damit das Modul jedoch möglichst 
schnell abläuft, kann man nach jedem Tabellendurchlauf 
überprüfen, ob sich die Check-Variable zum Wert 1 geändert 
hat und in diesem Falle (IC=1) die restlichen Tabellen über¬ 
springen. Dies ist möglich, da ein Wort, das in Tabelle A gefun¬ 
den worden ist, auf keinen Fall ebenfalls in Tabelle B vertreten 
sein kann. Es gibt schließlich kein Wort, das gleichzeitig Verb 
und Person ist. Wenn alle Tabellen durchlaufen sind, wird die 
Check-Variable IC wieder auf ihren Zustand hin überprüft. 

Erweist sich IC als 0, so steht fest, daß das Wort BE$(WZ) 
in keiner Tabelle vertreten ist. Natürlich auch nicht in der 
Tabelle der AU$-Worte (Tabelle der Worte, die überflüssig 
sind). 

Ist dies der Fall, so bringt das Programm die Fehlermeldung 

"Mein Wortschatz kennt das Wort ";BE$(WZ);" nicht 

Daraufhin wird die Befehlscodierung abgebrochen, und es 
ist folgendes möglich: 

a) Es erfolgt ein Sprung zum Actionmodul. Dies hat zur 
Folge, daß alle Monster, Geister etc. wieder am Zug 
sind. Angenommen, der Spieler begegnet gerade 
einem Monster und gibt als Befehl »Ermorde das Mon¬ 
ster« ein. Da der Computer jedoch leider das Wort 
»ermorde« nicht kennt, schlägt das Monster bei Fall a) 
voll zu — GAME OVER. 
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b) Es erfolgt ein Rücksprung zum Befehlseingabemodul. 

Die Methode a) ist die, die am meisten vertreten ist. 

Ich halte es jedoch für sinnvoller, Methode b) zu verwen¬ 
den, da hier sichergestellt ist, daß der Spieler nicht auf Grund 
eines Mißverständnisses verliert. 

Bei einem guten Adventure sollte der Spieler nur auf Grund 
von taktischen Fehlern verlieren und niemals auf Grund von 
Tippfehlern. 

Wir wollen nun aber annehmen, daß keine Fehlermeldung 
auftritt und das Programm in seinem Ablauf fortfährt. Die 
Check-Variable IC ist also 1. Damit ist auch eine Wortzahl 
(Verbzahl VE, 1. Gegenstandszahl Gl, etc.) gefunden wor¬ 
den. Bei dem ersten Wort, also wenn WZ = 1 ist, muß es sich 
im Normallfall stets um die Verbzahl VE handeln. Das erste 
Wort ist somit codiert. Nun wird die Wortzählvariable um 1 
erhöht. Das nächste Wort wird bearbeitet. Zunächst wird 
überprüft, ob dieses Wort überhaupt existiert, also ob der 
String BE$(WZ) Zeichen enthält. Wenn nicht, so ist der Lese¬ 
vorgang beendet und das Actionmodul ist dran. Wir nehmen 
jedoch an, daß das Wort BE$(WZ) existiert. 

Gemäß unserem Ablaufschema wird der Lesevorgang nun 
für das neue Wort wiederholt. 

Halt! Was passiert eigentlich, wenn es sich bei dem neuen 
String BE$(WZ) um »UND« handelt, also ein neuer Befehl 
innerhalb des Befehlssatzes folgt? Das heißt auch, daß nach 
dem »UND« ein neues Verb folgen wird, oder auch nicht, wie 
es bei »NIMM SCHWERT UND SEIL« der Fall ist. 

Angenommen es folgt jedoch ein neues Verb (NIMM 
SCHWERT UND OEFFNE TUER), dann würde sich unsere 
Verbzahl ändern und der NIMM-Befehl verloren gehen. 

Die Lösung dieses Problems lautet wie folgt: 

Bevor der Lesevorgang für das neue Wort BE$(WZ) 
beginnt, wird überprüft, ob dieses Wort gleich »UND« ist. 
»UND« braucht nicht in einer Tabelle definiert zu werden. Wir 
fragen im Programm direkt 

IF BE$(WZ) = "UND"... 

Ist dies der Fall, so setzen wir die Variable UD auf 1. 

Dann wird der Lesevorgang beendet. Es folgt ein Sprung 
zum Actionmodul. Im Actionmodul wird nun auf den ersten 
Befehl des Befehlssatzes reagiert. In unserem Fall meldet 
sich der Computer mit 

»SIE NEHMEN DAS SCHWERT« 

Nachdem dies geschehen ist, kehren wir (nach Schema) 
zurück zum Befehlseingabemodul. 

Halt! Wir können doch nicht einfach einen neuen Befehls¬ 
string BES vom Spieler holen, wo der alte BES doch noch 
nicht voll ausgewertet ist. Wir müssen in der ersten Zeile des 
Befehlseingabemoduls deshalb abfragen, welchen Zustand 
die Variable UD hat. 

Hat sie den Wert 1, so wissen wir, daß der letzte Befehls¬ 
string noch nicht voll ausgeführt ist. 

Das Befehlseingabemodul muß also übersprungen werden 
und zwar direkt zum Lese-(Codier-)Modul. 

Der Sprung muß jedoch so sein, daß der Wortzähler WZ 
nicht wieder wie zuvor auf 0 gesetzt wird, es soll schließlich 
an der Stelle im Satz weitergelesen werden, an der vorher 
unterbrochen wurde und nicht wieder vom ersten Wort des 
Satzes an. 

Auch Verbzahl VE, Objektzahl OB und Personenzahl PE 
dürfen nicht gelöscht werden. Würde man bei unserem Bei¬ 
spielsatz »NIMM SCHWERT UND SEIL« nach der Befehls¬ 
ausführung von NIMM SCHWERT die Verbzahl löschen, so 
würde der Computer nach Beendigung des zweiten Lesevor¬ 
gangs nur wissen, daß ein Seil gemeint ist, jedoch nicht, was 
er damit machen soll. Falls jedoch ein neues Verb gefunden 
wird, so nimmt die Verbzahl einfach den Wert dieses neuen 
Verbs an und vergißt somit den alten Wert. Durch dieses Ver¬ 
fahren wird gewährleistet, daß alle UND-Zusammenhänge 
richtig interpretiert werden. 


Dies ist ein besonders bemerkenswerter Vorteil unserer 
Befehlscodierung, den kaum ein anderes Adventure bietet. 

Die ersten Zeilen des Codiermoduls müssen folglich lau¬ 
ten: 

1. Zeile: IF UD=1 THEN UD=0 : GOTO 3.Zeile 

2. Zeile: WZ=1 : VE=0 : OB=0 : PE=0 

3. Zeile: IC=0 : G1=0 : G2=0 

In der ersten Zeile wird UD wieder auf Null gesetzt, damit 
das Befehlseingabemodul nicht wieder übersprungen wird. 

Findet sich im Laufe des zweiten Lesevorgangs jedoch wie¬ 
der ein UND, so wird die UND-Variable UD einfach wieder auf 
1 gesetzt. 

Dies findet in dem nun verbesserten Ablaufschema seinen 
Ausdruck: 



Durch diese Veränderung ändert sich natürlich auch in 
unserem Grundschema für Adventures etwas. Das neue 
Ablaufschema sieht deshalb folgendermaßen aus: 
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Damit wäre die Theorie für die Vervollständigung unseres 
neuen Moduls auch schon beendet. Unser neues Modul, das 
Befehlseingabe, -Zerlegung, -Sortierung und -Codierung (der 
Lesevorgang) in sich vereint, steht im Programm wieder ab 
Zeile 50000. Dieses Modul können wir schon als halbwegs 
»intelligent« bezeichnen, da es immer mit GOSUB 50000 
aufgerufen wird und dann selbständig entscheidet, woran es 
arbeiten muß, für die Befehlseingabe oder für die weitere 
Ausführung eines Befehlssatzes, der UND-Elemente enthält, 
also aus mehreren Befehlen besteht. 

Diese Intelligenz macht es uns möglich, das Modul für 
jedes Abenteuer einzusetzen. Dabei muß höchstens der 
Wortschatz (die Worttabellen) abgeändert werden. In dem 
verbesserten Grundablaufschema für Abenteuerspiele kön¬ 
nen Sie erkennen, wie unser neues Modul eingesetzt werden 
muß. 

Das Listing zum neuen Modul, werde ich nur noch leicht 
dokumentieren, da es schon ausführlich erklärt worden ist. 

Während des Abtippens vom Listing sollten Sie ständig 
Blicke auf die Variablentabelle, die gleich folgt, werfen, damit 
Ihnen der Bezug zur Theorie deutlich wird. 

Hier sind nun alle Variablen, die im Listing auftauchen: 


AZ 


AU$(1) bis AU$(AZ) 
VZ 

VE$(1) bis VE$(VZ) 
GZ 

GE$(1) bis GE$(GZ) 
OZ 

OB$(1) bis OB$(OZ) 
PZ 

PE$(1) bis PE$(PZ) 


Anzahl der Wörter, die in der Tabelle 
der auszusortierenden Wörter (der, 
die, das, etc.) stehen. 

Tabelle der auszusortierenden Worte. 

Anzahl der Verben 

Tabelle der Verben 

Anzahl der Gegenstände 

Tabelle der Gegenstände 

Anzahl der Objekte 

Tabelle der Objekte 

Anzahl der Personen 

Tabelle der Personen 


UD 

BES 

BE$(1) bis BES 
(maximal 10) 

WZ 

IC 

I 

II 


UND-Variable (wurde bereits erklärt) 
String, der den kompletten Befehls¬ 
satz enthält. 

Einzelne Worte des Befehlssatzes 
BES, wobei überflüssige Worte 
bereits aussortiert sind. 
Wortzählvariable, gibt an, welches 
Wort gerade bearbeitet wird. 
Checkvariable 
Schleife 

Schleife, innerhalb der Schleife I 


Alle Variablen die mit I beginnen sind entweder Check- 
Variablen oder Schleifen. 

VE Verbzahl (wird aus Verbtabelle er¬ 

mittelt) 

OB Objektzahl (wird aus Objekttabelle 

ermittelt) 

PE Personenzahl (wird aus Personen¬ 

tabelle ermittelt) 

Gl, G2 1. und 2. Gegenstandszahl (werden 

aus Gegenstandstabelle ermittelt) 

Dies wären auch schon alle auftretenden Variablen. Diese 
Variablen sind im ganzen Kurs beibehalten, damit Sie niemals 
unnötig verwirrt werden. Auf eventuelle Änderungen werde 
ich stets besonders hinweisen. Natürlich werde ich die 
Tabelle der Variablen im Laufe des Kurses ständig ergänzen. 
Ich empfehle Ihnen, bei allen Ihren Adventures immer die glei¬ 
chen Variablen zu verwenden, das heißt, daß die Wortzählva¬ 
riable WZ in jedem Adventure WZ lautet. 

Durch dieses System ist es möglich, sehr schnell Adventu¬ 
res zu programmieren. Man hat ein eindeutiges Schema und 
kann sich beim Programmieren des Adventures voll und ganz 
auf ^as Abenteuer konzentrieren und muß nicht ständig über 
Programmierung und Variablenbelegung nachdenken. Man 
kann sich eine Karte anlegen, auf der alle Variablen, die in 
jedem Adventure verwendet werden, verzeichnet sind. Diese 
Tabelle hat man dann beim Programmieren als Hilfe immer 
neben sich liegen. 

Ich würde mich freuen, wenn alle, die an diesem Kurs teil¬ 
nehmen, auch diese Variablen übernehmen. Man könnte so 
vielleicht einen Standard für die Adventureprogrammierung 
festlegen, der sicherstellt, daß jeder Kursteilnehmer das Pro¬ 
gramm eines anderen Kursteilnehmers schnell verstehen 
und eventuell Fehler auch besser finden kann. 

Wenn Sie schon einmal ein längeres Adventure aus einer 
Zeitschrift abgetippt haben, so wissen Sie sicher, wie chao¬ 
tisch diese Listings oftmals sind und in welchem Maße eine 
Fehlersuche dadurch zu einem fast unmöglichen Unterfan¬ 
gen wird. 

Geben Sie nun das Listing 6 der neuen Module ein, und 
versuchen Sie, es bereits beim Abtippen unter Zuhilfenahme 
der Variablentabelle zu verstehen. 


5 GOSUB 60000: REM TABELLEN BESTIMMEN 

<060> 

10 

REM ********* STEUERUNG *********** 

<163> 

30 

GOSUB 50000 

<160> 

40 

REM REAGIEREN-AUFRUFEN 

<210> 

60 

REM ******* DEMONSTRATION ********* 

<0B2> 

62 

PRINT:PRINT"BE* = ";BE*:PRINT 

< 143) 

64 

PRINT"VERBZAHL (VE) =“;VE 

<122> 

66 

PRINT"1.GEGENSTANDSZAHL CGI) = ";G1 

< 153> 

68 

PRINT"2.GEGENSTANDSZAHL <G2) =";G2 

< 158> 

70 

PRINT-OBJEKTZAHL (OB) =";OB 

<252> 

72 

PR I NT " F'ERSONENZ AHL (PE) =";PE 

< 177> 

80 

GOTO 10 

<058> 

90 

REM ••••••**•*••****•••••***••***•• 

<255> 

50000 REM BEFEHL BE* VOM SPIELER ERFRAGEN 



Listing 6. 
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<241 > 

50010 

IF UD=1 THEN 52000 

< 194> 

50020 

INPUT"WAS NUN ";BE* 

<178> 

50030 

GOTO 51000 

<176> 

51000 

REM BE* IN BE*(1)—BE*(10) ZERLEGEN— 




<235> 

51010 

FOR 1=1 TO 10:BE*(I)="":NEXT 

<236> 

51020 

WZ=1 

<167> 

51030 

FOR 1=1 TO LEN(BE*) 

<045> 

51040 

:IF MID*(BE*,1,1)=" "THEN GOSUB 5110 



0:GOTO 51060 

<100> 

51045 

:IF WZ>10 THEN PRINT"EINGABE IST ZU 



LANG !":I=LEN(BE* > +1:GOTO 51060 

< 147> 

51050 

: BE* (WZ > =BE* (WZ ) +MID* (BE* , I , 1 ) 

<185> 

51060 

NEXT I 

<006> 

51070 

GOTO 52000 

<197> 

51 100 

REM AU* WOERTER AUSSORTIEREN 

< 120> 

51110 

IC=0:FOR 11=1 TO AZ 

<050> 

51120 

:IF BE*(WZ)=AU*(11)THEN IC=1 

<054> 

51130 

NEXT 11 

<125> 

51140 

IF IC=0 THEN WZ=WZ+1:RETURN 

<226> 

51150 

BE* (WZ) =" "-.RETURN 

<000> 

52000 

REM DIE BEFEHLSWOERTER UNTERSUCHEN U 
ND DARAUS EINEN SINN DEUTEN - 



_ 

< 118> 

52005 

IF UD=1 THEN UD=0:GOTO 52020 

<213> 

52010 

WZ=1:VE=0:OB=0:PE=0 

< 158> 

52020 

IC=0:G1=0:G2=0 

< 150> 

52025 

REM *** VERB VE SUCHEN 

< 161 > 

52030 

FOR 1=1 TO VZ 

<010> 

52040 

:IF BE*(WZ)=VE*(I> THEN VE=I:IC=1 

< 11B> 

52050 

NEXT IsIF IC=1 THEN 52150 

<192> 

52060 

REM *** GEGENSTAND G1/G2 SUCHEN 

<250> 

52070 

FOR 1=1 TO GZ 

<035> 

52080 

:IF BE*(WZ)<>GE*(I)THEN 52090 

<002> 

52082 

: IC=1 

<230> 

52084 

: IF G1=0 THEN G1 = I 

< 120> 

52086 

: G2=I:IF G2=G1 THEN G2=0 

<089> 

52090 

NEXT I: IF IC=1 THEN 52150 

<232> 

52100 

REM »** OBJEKT OB SUCHEN 

< 114> 

52110 

FOR 1=1 TO DZ 

<083 > 

52120 

:IF BE*(WZ)=OB*(I)THEN OB=I:IC=l 

<17B> 

52130 

NEXT I:IF IC=1 THEN 52150 

<016> 

52132 

REM *** PERSON PE SUCHEN 

< 174> 

52133 

FOR 1=1 TO PZ 

< 107> 

52134 

:IF BE*(WZ)=PE*(I)THEN PE=I:IC=1 

<200> 

52135 

NEXT IsIF IC=1 THEN 52150 

<021 > 

52137 

IF BE*(WZ)="UND"THEN UD=1:IC=1 

<085> 

52140 

IF IC=0 THEN PRINT"ICH KENNE ";BE*(W 



Z)j" NICHT !":RETURN 

<255> 

52150 

WZ=WZ+1 

< 112> 

52160 

rF WZ>10 OR BE*(WZ)=""OR UD=1 THEN R 



ETURN 

< 141 > 

52170 

IC=0:GOTO 52025 

< 196> 

60000 

REM ***************************** 

< 155> 

60001 

REM «WORT-TABELLEN* 

<238> 

60002 

REM ***************************** 

< 157> 

60010 

REM *** AU*-WORT—TABELLE 

<1B6> 

60020 

DATA DER,DIE,DAS,DEN, ,UEBER,UNTER,A 



UF,IN,VON,VOM,IM,NACH,DURCH,MIT,DEM 

<016> 

60022 

DATA AM 

< 113> 

60030 

AZ=17:DIM AU*(AZ):FOR 1=1 TO AZ:READ 



AU*(I):NEXT 

< 122 : 

60050 

REM *** VERB-TABELLE VE* 

<157: 

60060 

DATA NIMM, VERL IERE , OEFFNE , GIB , SAGE, I 



NVENTUR , BEFESTI GE 

<07s: 

60070 

VZ=7:DIM VE*(VZ>:FOR 1 = 1 TO VZ:READ 



VE*(I):NEXT 

<186: 

60090 

REM *** GEGENSTANDS-TABELLE GE* 

<186: 

60100 

DATA SCHWERT,SCHLUESSEL,SEIL,FACKEL, 



ARMBRUST,HELM,SCHILD 

<H6: 

60110 

GZ=7:DIM GE*(7):FOR 1=1 TO GZ:READ G 



E*(I):NEXT 

<045 

60130 

REM *** OBJEKT-TABELLE OB* 

<115 

60140 

DATA FENSTER,TUER,TRUHE.KISTE,FALLTU 



ER 

<199 

60150 

0Z=5:DIM OB*(OZ):FOR 1=1 TO DZ:READ 



OB*(I>:NEXT 

<223 

60160 

REM *** PERSONEN-TABELLE PE* 

<065 

60170 

DATA GEIST,MONSTER,THORIN,GOMMEL,ORK 

<077 

60180 

PZ=5:DIM PE*(PZ):FOR 1=1 TO PZ:READ 



PE*(I):NEXT 

<009 

60200 

RETURN 

Listing 6. 

<161 


Dokumentation zu 

I 

10 bis 80 


50000 

50000 bis 50030 
50010 


51000 bis 51150 


52000 bis 52170 
52005 


52025 bis 52135 


iun^ 


52137 

52140 


52150 

52160 


52170 
Ab 60000 


Listing 6: 

Aufruf zum Definieren der Wort-Tabellen 
Steuerung des Adventures. Hier muß 
später auch das Actionmodul aufgeru¬ 
fen werden (vgl. auch letztes Grund¬ 
schema). 

Anfang des Moduls 
Befehlseingabe 

Wenn UD=1 ist, der letzte Befehlsstring 
also mehrere Befehle enthielt, die noch 
nicht alle ausgeführt worden sind, so 
wird die Befehlseingabe übersprungen 
und der alte Befehlsstring wird weiter¬ 
behandelt. 

Zerlegung des Befehlssatzes BES in 
einzelne Worte BE$(1) bis BE$(maximal 
10 ). 

Befehlscodierung (Lesevorgang) 

Ist UD=1, so steht fest, daß es sich um 
die Weiterbehandlung eines alten 
Befehlssatzes handelt. Deshalb darf der 
Wortzähler nicht auf 1 gesetzt werden, 
es muß bei dem Wort weitergelesen 
werden, bei dem schon vorher abgebro¬ 
chen wurde. Damit Sätze wie »NIMM 
DAS SCHWERT UND DAS SEIL« ver¬ 
standen werden, dürfen die Variablen 
VE, OB, PE ebenfalls nicht gelöscht 
werden. 

Hier werden alle Tabellen (Worttabellen) 
auf das aktuelle Wort BE$(WZ) hin 
untersucht. Wird das Wort in einer Verb¬ 
tabelle gefunden, so erhält die Verb¬ 
zahl VE ihren Wert etc. 

Wenn das Wort in irgendeiner Tabelle 
gefunden wird, so wird die Checkvaria¬ 
ble IC auf 1 gesetzt. Nach jedem Tabel¬ 
lendurchlauf wird IC überprüft. Ist IC=1, 
so werden alle weiteren Tabellendurch¬ 
läufe übersprungen, da ein Wort niemals 
in zwei Tabellen vertreten ist. Dieses 
Überspringen dient lediglich dazu, die 
Verarbeitungsgeschwindigkeit des Mo¬ 
duls zu erhöhen. 

Überprüfung, ob BE$(WZ) ="UND" 
ist. Wenn ja, so wird UD gleich 1 gesetzt. 
Wenn IC nun immer noch 0 ist, so steht 
fest, daß das Wort BE$(WZ) in keiner 
Tabelle beziehungsweise dem gesam¬ 
ten Wortschatz vertreten ist. Es erfolgt 
somit eine Fehlermeldung, die aus¬ 
drückt, welches Wort nicht erkannt 
wurde. 

Die Wortzählvariable wird auf das näch¬ 
ste Wort gesetzt. 

Überprüfung, ob der Befehlssatz die 
zulässige Wortzahl von maximal 10 Wor¬ 
ten überschreitet, ob das neue Wort 
BE$(WZ) = " " ist oder ob UD = 1 ist. 
Trifft eine dieser Bedingungen zu, so 
wird der Codiervorgang 

a) beendet, wenn der Befehlssatz zu¬ 
ende ist (BE$(WZ)=""). 

b) unterbrochen, wenn ein Teilbefehl 
des Befehlssatzes BES ausgeführt 
werden muß, also wenn UD=1 ist. 

Die Check-Variable IC wird auf 0 ge¬ 
setzt. Der Lesevorgang beginnt erneut. 
Definieren der Worttabellen 
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Bevor Sie nun im Kurs fortfahren, sollten Sie unser neues 
Modul bis ins letzte Detail verstanden haben. 

Wenn Sie das Modul abgetippt haben, so starten Sie es nun 
bitte. Es erfolgt der Aufruf, einen Befehlssatz einzugeben 
»WAS NUN?«. Sie können nun einen Befehl eingeben, der aus 
Worten besteht, die im Wortschatz enthalten sind (also in 
Tabellen). 

Wenn Sie anschließend RETURN drücken, so gibt das Pro¬ 
gramm die Zahlen aus, die aus der Codierung hervorgehen: 

Verbzahl VE 

1. Gegenstandszahl Gl 

2. Gegenstandszahl G2 

Objektzahl OB 

Personenzahl PE 

Geben Sie nun einmal verschiedene Befehlssätze (auch 
Sätze die mehrere Befehle enthalten) ein, und untersuchen 
Sie die jeweiligen Ergebnisse. 

Sie können auch einmal die Beispielssätze, die wir bereits 
theoretisch codiert haben, eingeben und die Ergebnisse mit 
den theoretisch gewonnenen vergleichen. Ergibt der Ver¬ 
gleich keine Unterschiede, so arbeitet unser Modul tadellos. 
Wenn nicht, so muß irgendwo ein Tippfehler vorliegen, den 
Sie anhand Ihres bisherigen Wissens jedoch leicht finden 
müßten. Ich gebe zu, daß es momentan etwas trocken und 
monoton zugeht, aber ich kann Ihnen getrost versichern, daß 
wir uns schon bald interessanteren Bereichen der Program¬ 
mierung zuwenden werden. 

Bevor ich jedoch das Geheimnis lüfte, was wir eigentlich mit 
den ganzen Verbzahlen, Objektzahlen etc. anfangen werden, 
müssen wir uns noch einem kleinen Problem zuwenden. 

Betrachten Sie einmal die folgenden beiden Sätze: 

1. VERLIER DAS SEIL 

2. VERLIERE DAS SEIL. 

Für uns Deutsche ist hier zunächst eigentlich kein Unter¬ 
schied zu sehen. Tatsache ist jedoch, daß das Verb im ersten 
Satz VERLIER und im zweiten Satz VERLIERE lautet. Trotz¬ 
dem ist der Sinn des Satzes eindeutig. Der Befehlssinn des 
ersten Satzes ist also exakt der gleiche, wie der des zweiten, 
eigentlich korrekten Satzes. Doch wie kann man das dem 
Computer klarmachen? 

Nun, dazu wollen wir die beiden Worte VERLIER und VER¬ 
LIERE noch einmal näher betrachten. Genausogut könnten 
wir für diese Betrachtung auch das Beispiel SAG und SAGE 
hernehmen. 

Das Problem ist einfach zu lösen. 

Bisher lief die Verb-Untersuchung im Programm (Zeile 
52025 bis 52050) ja so, daß wir überprüft haben, ob das 
aktuelle Befehlswort BE$(WZ) in der Verbtabelle enthalten 
ist. Dies sah so aus: 

IF BE$(WZ) = VE$(I) THEN VE=I : IC = 1 

Die Variable I durchläuft dabei die Werte 1 bis VZ, wobei VZ 
die Anzahl aller Verben darstellt. 

Wir müssen diese Abfrage nun so umändern, daß nicht 
mehr überprüft wird, ob BE$(WZ) mit VE$(I) identisch ist, 
sondern nur ob BE$(WZ) im Verb VE$(I) enthalten ist. 

Wie man überprüft, ob ein String in einem anderen String 
enthalten ist, haben Sie bereits im Kapitel Stringoperationen 
gelernt (lesen Sie dort gegebenenfalls nochmal nach). 

Dies sieht zwar ziemlich kompliziert aus, ist bei näherem 
Betrachten jedoch ganz einfach. 

Schreiben Sie jetzt im Programm die Zeile 52040, in der 
die Abfrage stattfindet, um: 

52040 :IFBE$(WZ)=LEFT$(VE$(I),LEN(BE$(WZ))) 
THENVE=I:IC=1 

Starten Sie nun das Programm erneut und überprüfen Sie, 
ob es ordungsgemäß abläuft. 

Ist dies der Fall, so müßte für VERLIER und VERLIERE eine 
identische Verbzahl und keine Fehlermeldung herauskom¬ 
men. 


Wenn Sie einfach V eingeben, so erhalten Sie ebenfalls die 
Verbzahl, die Sie auch für VERLIERE erhalten. Jeder Verb- 
Befehl kann also jetzt beliebig abgekürzt werden. 

Allerdings kann es bei Abkürzungen auch schnell zu Miß¬ 
verständnissen kommen. Wenn in der Verbtabelle zum Bei¬ 
spiel zwei Verben enthalten sind, die mit den gleichen Buch¬ 
staben beginnen (zum Beispiel SAGE und SUCHE) und der 
Spieler als Befehlsabkürzung S eingibt, so kann das Pro¬ 
gramm nicht wissen ob SAGE oder SUCHE mit dieser Abkür¬ 
zung gemeint ist. Es nimmt in einem solchen Fall immer die 
Verbzahl an, die die Größte ist. Diese Tatsache braucht uns 
jedoch nicht zu stören, da der Spieler schnell herausfinden 
wird, welche Befehle er wie abkürzen kann. 

Das Befehlsanalyseprogramm, das uns nun zur Verfügung 
steht, ist ohne Zweifel schon sehr gut, aber wir wollen noch 
einen Schritt weitergehen. 

Hierzu wollen wir einmal die folgenden beiden Verben 
betrachten: NIMM und NEHME. 

Im Prinzip besteht zwischen den Befehlssätzen NIMM DAS 
SCHWERT und NEHME DAS SCHWERT kein Unterschied. 
Trotzdem gibt es kaum deutsche Adventures, die beide Worte 
akzeptieren. Bei unserem Befehlsanalysesystem soll dieses 
Problem jedoch endgültig gelöst werden. 

Bevor wir uns jedoch mit der Lösung beschäftigen, wollen 
wir noch ein anderes Beispiel betrachten. 

Nehmen wir einmal an, unser Spieler hat ein Brett und ein 
Seil. Er will das Seil am Brett festbinden. 


Er könnte folgende Befehlssätze ausprobieren: 

1. Binde das Seil am Brett fest. 

2. Befestige das Seil am Brett. 

3. Verknote das Seil am Brett. 

4. Verbinde das Seil mit dem Brett. 

5. Mache das Seil am Brett fest. 

6. Binde das Seil ans Brett. 

Zugegeben, einige Satzmöglichkeiten sind vielleicht 
extrem außergewöhnliche Beispiele, aber wir wollen einmal 
damit rechnen. 

Diese Sätze sind auch gute Beispiele dafür, warum wir zwei 
Gegenstandsvariablen Gl und G2 für die Befehlsanalyse 
reserviert haben, denn in jedem der sechs Sätze kommen 
zwei Gegenstände vor: Seil und Brett. 

Die Gegenstände, die in den Sätzen auftauchen, sind also 
immer identisch. Nun wollen wir einmal betrachten, welche 
Wörter Verben VE$ sind, und welche aussortiert werden 
müssen (AUS). 

1. VE$ : BINDE AUS : das, am, fest 

2. VE$ : BEFESTIGE AUS : das, am 

3. VES : VERKNOTE AUS : das, am 

4. VES : VERBINDE AUS : das, mit, dem 

5. VES : MACHE AUS : das, am, fest 

6. VES : BINDE AUS : das, ans 

Wir haben jetzt also mehrere Verben, die alle den gleichen 
Sinn haben (in bezug auf unseren Satz) — eine Verbfamilie 
also. 


Den Satz Nummer 5 wollen wir verbieten. 

In ihm ist kein eindeutiges Verb vorhanden. »Mache« kann 
als Verb betrachtet werden, da zu »mache« immer noch ein 
Bezugswort gehört (zum Beispiel mache fest, wobei fest das 
Bezugswort ist). Das Wort »fest« kann aber wiederum nicht 
als Verbersatz dienen, da es in Satz 1 als ein auszusortieren¬ 
des Wort betrachtet wird. Wir wollen Sätze mit »mache« also 
grundsätzlich verbieten. Immer wenn der Spieler also einen 
Befehlssatz eingibt, der das Wort »mache« enthält, wird er die 
Fehlermeldung »ICH KENNE DAS WORT MACHE NICHT« 
vom Programm erhalten. 

Natürlich brauchen wir diese Fehlermeldung für das Wort 
»mache« nicht extra programmieren. Unser Befehlsanalyse¬ 
programm bringt nämlich für jedes Wort, das nicht in einer der 
Worttabellen vertreten ist (einschließlich der Tabelle der 


(= 230 ? 


32 





Kurs 


auszusortierenden Worte) automatisch eine Fehlermeldung. 
Unser Problem, das wir lösen wollen, ist also, daß die Befehls¬ 
analyse sich nicht nur auf einzelne Verben, sondern auch auf 
ganze Verbfamilien bezieht. Die Verben NIMM und NEHME 
sind auch eine solche Verbfamilie. 

Eine einfache Lösung des Problems wäre die folgende: 

Wir erweitern die Verbtabelle VE$ einfach um das Verb 
»Nehme« (für das Beispiel der Wortfamilie Nimm, Nehme). 

Das Verb »NEHME« bekäme in diesem Fall eine eigene 
Verbzahl zugeordnet. Die hätte zur Folge, daß die Verbzahlen 
für »NIMM« und »NEHME« unterschiedlich wären. 

Diese Tatsache müßte man dann später im Actionmodul 
berücksichtigen. Wenn das Actionmodul später also fest¬ 
stellen will, ob der Spieler etwas nehmen will, dann würde die 
Abfrage hierzu folgendermaßen aussehen: 

IF VE = A OR VE = B THEN:REM: SPIELER WILL ETWAS 
NEHMEN. 

A ist hierbei die Verbzahl für das Wort »NIMM« und B die 
Verbzahl für das Wort »NEHME«. 

Diese Lösung würde für unser erstes Beispiel zwar gut 
funktionieren, aber beim 2. Beispiel (Spieler will Seil mit Brett 
verbinden) wäre schon eine ziemlich lange IF-THEN-Abfrage 
nötig. Die erste Lösung frißt also zuviel vom eh’ sehr kost¬ 
baren RAM-Speicherplatz. 

Eine bessere Lösung wäre, wenn man für das Verb NIMM 
und das Verb NEHME die gleiche Verbzahl erhalten würde. 
Bei diesem Idealfall wäre die im Actionmodul nötige Abfrage 
schon wesentlich unkomplizierter: 

IF VE = A THEN:REM: SPIELER WILL ETWAS NEHMEN. 

Wir sind uns also einig, daß eine solche Lösung die Ideallö¬ 
sung ist. Wie programmiert man diese Ideallösung jedoch am 
einfachsten? 

Eine Möglichkeit wäre, mehrere Alternativ-Verbtabellen zu 
erstellen. In der normalen Verbtabelle stände dann an erster 
Stelle das Verb NIMM und in der alternativen Verbtabelle das 
Alternativ-Verb zu NIMM, also NEHME. Wenn wir jedoch wie¬ 
der unsere zweite Wortbeispieltabelle betrachten, bemerken 
wir, daß wir hier mehrere alternative Worttabellen benötigen 
würden, da unsere zweite Verbfamilie aus vier Mitgliedern 
(binde, befestige, verknote, verbinde) besteht. Diese Lösung 
wäre viel zu kompliziert zu realisieren und bräuchte auch zu 
viel Speicherplatz. Ich will Sie nun nicht länger auf die Folter 
spannen, und die Katze aus dem Sack lassen — die Ideal¬ 
lösung! 

Und so sieht sie aus: 

Das Wort beziehungsweise Verb »NIMM« steht ja bereits in 
unserer Verbtabelle in der DATA-Zeile 60060. 

60060 DATA NIMM, VERLIERE, OEFFNE, GIB, SAGE, 
INVENTUR, BEFESTIGE 

60060 DATA NIMM, NEHMEI, VERLIERE, OEFFNE, GIB, 
SAGE, INVENTUR, BEFESTIGE 

Wir haben das Verb »NEHME« also direkt hinter dem Verb 
»NIMM« eingefügt. Jedoch haben wir nicht einfach »NEHME« 
sondern »NEHMEI« eingefügt — der Einser direkt nach dem 
Wort »NEHME« ist kein Druckfehler. 

Was soll denn der Einser, werden Sie jetzt sicherlich mit 
Recht fragen. Stören tut er ja nicht, denn wenn wir das Pro¬ 
gramm starten und das Wort »Nehme« eingeben, so wird dies 
ja akzeptiert. Der Computer betrachtet »nehme« einfach als 
eine Abkürzung für das in seiner Verbtabelle an zweiter Stelle 
gespeicherte Verb »NEHMEI«. 

Oh, da sehe ich doch, daß mir soeben ein kleiner Fehler 
unterlaufen ist. Haben Sie ihn auch schon entdeckt? Nun, ich 
habe vergessen die VZ-Variable in Zeile 60070 umzuändern. 

Denn da ich ein neues Verb in die Tabelle eingebaut habe, 
muß ich auch die VZ-Variable umändern, da VZ für die Anzahl 
der Verben in der Verbtabelle steht. Diese Änderung wollen 
wir jetzt schnell nachholen: 

60070 VZ=8... 


Solche Fehler sind sehr tückisch, da sie meist nur selten im 
Programm wirksam werden und daher nur schwer zu finden 
sind. Denken Sie also stets daran, daß Sie immer, wenn Sie 
irgendeiner Worttabelle eine weiteres Wort zufügen, auch die 
entsprechende Variable, die angibt wieviele Worte in dieser 
Tabelle stehen, korrigieren müssen. 

Nun aber zurück zur Frage »Warum NEHMEI?«. 

Voraussetzung für das Funktionieren dieser Ergänzung ist 
natürlich, daß Sie Zeile 52040 bereits geändert haben (wie 
vor kurzem beschrieben). Können Sie sich noch an den VAL- 
Befehl erinnern, den wir beim Kapitel Stringoperationen 
besprochen haben? 

Nach der Änderung der Verbtabelle sieht diese so aus: 
VE$(1) = "NIMM" 

VE$(2) = "NEHMEI " 

VE$(3)... etc. 

Probieren Sie doch einmal aus, was VAL (VE$(2)) ergibt. 

Geben Sie dazu im Direktmodus ? VAL ("NEHME") ein. 

Nun, was glauben Sie was passiert, wenn man nach dieser 
Eingabe RETURN drückt? 

Die richtige Antwort lautet Null, was Sie ja leicht überprüfen 
können. 

Fall Sie als Antwort 1 erwartet haben, so beherrschen Sie 
den VAL-Befehl noch nicht. Geben Sie nun die folgende Zeile 
im Direktmodus ein: 

? VAL(RIGHT$(" NEHMEI ",1)) 

Nach Drücken von RETURN erhalten wir endlich das 
gewünschte Ergebnis. 1. Wenn wir für »NEHMEI« den String 
»NIMM« einsetzen, erhalten wir als Ergebnis 0. Es ist also 
egal, ob wir »NIMM« oder »NIMMO« einsetzen. 

Wir wollen also einmal folgendes festlegen: 

Das Stammverb steht immer vor den alternativen Verben in 
der lauelle. Die alternativen Verben folgen in der Tabelle 
direkt nach dem Stammverb und sind mit Zahlen versehen. 

Betrachten wir nun nochmals die Verbfamilie BINDE, 
BEFESTIGE, VERKNOTE, VERBINDE. 

In eine Verbtabelle eingebaut, würde diese Worttabelle so 
aussehen (wobei es immer egal ist, welches Mitglied der 
Familie als Stammverb gewählt wird): 

VE$(1) = "BINDE" 

VE$(2) = "BEFESTIGEI " 

VE$(3) = "VERKNOTE2 " 

VE$(4) = "VERBINDE3" 

Bei der Numerierung habe ich unsere bisherige Verb¬ 
tabelle völlig außer Acht gelassen. 

Wie ich bereits gesagt habe, besteht unser Ziel darin, für 
jedes Mitglied einer Verbfamilie die gleiche Verbzahl VE zu 
erhalten. 

Ich lege nun fest, daß die Verbzahl, die man später für jedes 
Verb der Verbfamilie erhält, identisch ist mit der Verbzahl, die 
man für das Stammverb dieser Verbtabelle erhält. 

Sicher wissen Sie noch, wie wir unsere Verbzahl bisher 
erhalten haben: Wir haben eine Schleife I, die VE$-Tabelle 
von 1 bis VZ (Anzahl der Verben) durchlaufen lassen. Dabei 
haben wir überprüft, ob das aktuelle Befehlswort BE$(WZ) 
gleich VE$(I) war. Stimmten beide Strings überein, so sagten 
wir einfach VE = I. Also Verbzahl = momentaner Stand der 
Schleife. 

Im Programm sah dies so aus (in der ersten Version): 
52030 FORI = 1TO VZ 
52040 :IFBE$(WZ) = VE$(I) THEN VE=I 
52050 NEXT I 

Dieses Programm habe ich soweit wie möglich vereinfacht. 

Wenn wir bei diesem Prgramm unsere obige Verbtabelle 
durchlaufen lassen, so erhalten wir im Moment noch für jedes 
Verb eine spezielle Verbzahl. Wie stellen wir es nun an, daß 
wir für jedes Wort einer Verbfamilie die gleiche Verbzahl VE 
erhalten? 
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Bisher war unsere Verbzahl VE nur vom jeweiligen Stand 
der Schleifenvariable I abhängig, bei dem sich BE$(WZ) mit 
VE$(I) als identisch erwies. Nun müssen wir einen Weg 
finden, bei dem sich VE in Abhängigkeit von der Schleifen¬ 
variablen I und von dem VAL-Wert des jeweiligen Verbs VES(I) 
ergibt. 

Dazu wollen wir nochmals unsere neue Verbtabelle be¬ 
trachten: 

Für das Stammverb »BINDE« erhalten wir den VAL-Wert 0. 

Für das erste Alternativverb »BEFESTIGE« ist der VAL-Wert 
gleich 1. 

Für das zweite Alternativverb entsprechend 2. 

Für das dritte Alternativverb schließlich 3. 

Die Ziffer im String gibt also an, das wievielte Alternativverb 
eines Stammverbs der String ist. 

Es wurde ja bereits festgelegt, daß die Verbzahl für alle 
Mitglieder einer Verbfamilie identisch sein soll mit dem Wert 
des Stammverbs dieser Familie, also dem Verb mit dem VAL- 
Wert 0. 

Damit dürfte die Lösung des Problems eigentlich schon klar 
sein: 

52030 FOR I = 1 TO VZ 
52040 :IFBE$(WZ) = VE$(I) THEN VE = l-VAL 
(RIGHT$(VE$(I),1)) 

52050 NEXTI 

Wir ziehen von dem I-Wert, bei dem die Identität festgestellt 
wurde, einfach den VAL-Wert ab. Wenn wir vom I-Wert, der 
sich für das Stammverb ergibt, den VAL-Wert des Stamm¬ 
verbs abziehen, so erhalten wir den Verbzahl-Wert VE des 
Stammverbs (da der VAL-Wert des Stammverbs ja immer 0 
ist). 

Wenn wir vom I-Wert, der sich für das erste Alternativverb 
ergibt, den VAL-Wert des ersten Alternativverbs abziehen, so 
erhalten wir wieder die selbe Verbzahl VE (da der VAL-Wert 
des ersten Stammverbs ja immer 1 ist). Für die weiteren Alter¬ 
nativverben gilt natürlich das Entsprechende. 

Wir haben unsere angestrebte Ideallösung also gefunden. 
Und das Besondere ist, daß unsere neue Befehlsanalyse nur 
um ein paar Bytes länger geworden ist. 

Wir dürfen jedoch nicht vergessen, die Zeile 52040 wie¬ 
der so umzuändern, daß der Vergleich zwischen BE$(WZ) 
und VE$(I) wieder nur so erfolgt, daß überprüft wird, ob 
BE$(WZ) in VE$(I) enthalten ist. Denn nur dann werden 
Abkürzungen für Verben akzeptiert, und dies ist auch die 
Grundbedingung, die es uns erlaubt, die Strings der Alterna¬ 
tivverben mit Nummern zu versehen. 

Die endgültige Zeile 52040 lautet folglich: 

52040 :IFBE$(WZ)=LEFT$(VE$(I),LEN(BE$(WZ))) 
THENVE=I-VAL(RIGHT$(VE$(I),1)) :IC=1 

Damit haben wir es endlich geschafft: Unser Analysemodul 
ist fertig. Anschließend noch ein Listing, bei dem eine kom¬ 
plette Befehlseingabe mit unserer idealen Befehlsanalyse zu 
einem Unterprogramm, das ab Zeile 50000 steht, zusam¬ 
mengefaßt ist—das Programm ist soweit wie möglich kompri¬ 
miert. Also ohne viele REM-Zeilen etc. 

Es ist die Grundbasis, für alle folgenden Beispielpro¬ 
gramme. Dieses Modul kann für jedes Adventure verwendet 
werden, da es nichts programmspezifisches enthält. Ände¬ 
rungen können Sie leicht vornehmen, da das Modul jetzt ja 
ausführlich besprochen worden ist. 

Das Modul kann natürlich nur dann arbeiten, wenn vorher 
im Programm die Worttabellen mit den entsprechenden Varia¬ 
blen definiert werden. 

Zu beachten ist hierbei, daß die Verbtabellen immer die 
längstmöglichen Wörter enthalten. Also »VERLIERE« und 
nicht »VERLIER«, denn nur dann ist gewährleistet, daß Ver¬ 
ben abgekürzt werden können. 


Man könnte im Prinzip auch für die anderen Worttabellen, 
wie die Objekttabelle, Abkürzungen erlauben. Ich halte dies 
jedoch für überflüssig. Geben Sie nun bitte das Listing 7 ein 
und speichern Sie es auf Kassette oder Diskette ab, damit Sie 
in den folgenden Kapiteln darauf zurückgreifen können. 


10 VZ=2:VE*(1)= "N":VE*(2)="NW" 

< 116> 

50000 

REM **************************** 

<058> 

50010 

REM * BEFEHLSEINGABE * 

<228> 

50020 

REM * BEFEHLSZERLEGUNB * 

<182> 

50030 

REM * BEFEHLSCODIERUNG * 

< 173> 

50040 

REM **************************** 

<098> 

50050 

IF UD=1 THEN 50220 

<236> 

50060 

POKE 19B,0:BE*="":PRINT"WAS NUN ? 

<044> 

50070 

POKE 204,0 

<226> 

500B0 

GET X*:IF X*=""THEN 50080 

<091 > 

50090 

IF PEEK(203)=1 OR LEN(BEO >68 THEN P 



RINT" ":POKE 204,1:GOTO 50140 

< 022 > 

50100 

I=ASC(X*):IF I<65 OR I>90 THEN IF I< 



>32 AND 1020 AND 1034 THEN 50080 

< 173> 

50110 

IF 1=20 AND BE*=""THEN 50080 

<093> 

50120 

IF 1=20 THEN POKE 204,1:PRINT"{LEFT, 



2SPACE , 2LEFT > " ; : BE*=LEFT* (BE* , LEN (BE 



O —1):GOTO 50070 

< 174> 

50130 

PRINT X*;:BES=BE*+X*:GOTO 50080 

<013> 

50140 

FOR 1 = 1 TO 10:BES(I> =“"sNEXT:WZ=1: FO 



R 1=1 TO LEN(BEO 

<154> 

50150 

s IF MIDI» (BES, 1,1) =" "THEN GOSUB 5019 



0:GOTO 50180 

<240> 

50160 

sIF WZ>10 THEN PRINT"EINGABE IST ZU 



LANG !":I=LEN(BEO+1:GOTO 50180 

< 02 B> 

50170 

:BE*(WZ)=BE*(WZ)+MID*(BES,I,1> 

<069> 

50180 

NEXT I:GOTO 50220 

<079> 

50190 

IC=0:FOR 11=1 TO AZ:IF BES(WZ)=AU*(I 



1)THEN IC=1 

<086 > 

50200 

NEXT 11: IF IC=0 THEN WZ=WZ+1: RETURN 

<105> 

50210 

BE*(WZ>="":RETURN 

<081 > 

50220 

IF UD=1 THEN UD=0:GOTO 50240 

<215> 

50230 

WZ=1: VE=0: OB=0: PE=0 

< 163> 

0 

IC=0:G1=0:G2=0 

< 155> 

50250 

FOR 1=1 TO VZ:IF BE*(WZ)=VE*(I)THEN 



VE=I:IC=1 

< 114> 

50251 

IF LEN(BE*(WZ))<3 THEN 50260 

<229> 

50255 

IF BE*(WZ)=LEFT$(VE*(I),LEN(BE*(WZ)) 



)THEN VE=I—VAL(RIGHT*(VE*(I),l))aIC= 



1 

<211 > 

50260 

NEXT I:IF IC=1 THEN 50350 

< 187> 

50270 

FOR 1=1 TO GZ:IF BE*(WZ)<>GE*(I>THEN 



50300 

<211 > 

50280 

IC=1:IF G1=0 THEN Gi=I 

< 212 > 

50290 

G2=I:IF G2=G1 THEN G2=0 

< 020 > 

50300 

NEXT I: IF IC=1 THEN 50350 

<227> 

50310 

FOR 1=1 TO OZ : IF BE* (WZ) =0B* (I ) THEN 



OB=I:IC=1 

< 147> 

50320 

NEXT I:IF IC=1 THEN 50350 

<247> 

50330 

FOR 1=1 TO PZ:IF BE*(WZ)=PE*(I)THEN 



PE=I:IC=1 

<176> 

50340 

NEXT I 

<051 > 

50350 

IF BE*(WZ)="UND"THEN UD=1:IC=1 

<0B3> 

50360 

IF IC=0 THEN PRINT"ICH KENNE ";BE*(W 



Z>5" NICHT !":RETURN 

<004> 

50370 

WZ=WZ+1:IF WZ>10 OR BE*(WZ)=""OR UD= 



1 THEN RETURN 

<177> 

50380 

IC=0:GOTO 50250 

< 189> 


Listing 7 



Bitte betrachten Sie einmal die folgenden Zeilen, die auch 
im Listing enthalten sind: 


50250 FORI=1TOVZ:IFBE$(WZ)=VE$(l)THENVE= 
l:IC—1 

50251 IFLEN(BE$(WZ)) < 3THEN50260 

Die beiden IF-THEN-Abfragen sorgen dafür, daß die Abkür¬ 
zungen für die Verben mindestens drei Buchstaben haben 
müssen. 

Verben mit ein bis zwei Buchstaben werden jedoch akzep¬ 
tiert, wenn sie in der Verbtabelle enthalten sind (zum Beispiel 
Richtungsangaben wie N, S, O, W, NW etc.). 
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5. Kapitel: Die Spielkarte 

Als Resultat des letzten Kapitels steht uns nun ein komfor¬ 
tables Befehlsanalyse-System zur Verfügung. 

Es ist keine Übertreibung, zu behaupten, daß wir dem kom¬ 
pletten Adventure nun schon sehr nahe sind. Da im letzten 
Abschnitt sehr viel Theorie enthalten war, die sich auch 
schon ein wenig auf den gesamten Ablauf eines Adventures 
bezog, haben wir die wesentliche Gedankenarbeit bereits 
geleistet — Sie haben gelernt Tabellen zu definieren und mit 
Strings zu arbeiten. 

Für die folgenden Kapitel werde ich die Theorie deshalb 
etwas knapper halten. Nun aber gleich zum Thema — der 
Spielkarte. 

Eine Spielkarte zu programmieren, ist das Problem, das 
jeden Adventure-Programmierer am meisten beschäftigt. 

Wer sich ein Adventure-Listing aus einer Computerzeit¬ 
schrift schon einmal näher angeschaut hat, wird wissen, wie 
verwirrend die Listings oft aussehen: Schier unendlich viele 
Variablen und GOTO/GOSUB-Anweisungen leisten ihren Bei¬ 
trag zur Unübersichtlichtkeit, so daß es nahezu unmöglich ist, 
den Programmablauf vernünftig zu verfolgen. Eine weitere 
Tatsache ist, daß in keinem anderen Listing so viele Fehler 
auftauchen, wie bei Abenteuerspielen. Das liegt hauptsäch¬ 
lich daran, daß sich die meisten Adventure-Programmierer 
nach einiger Zeit in ihrem Listing nicht mehr zurecht finden, 
da sie zu »chaotisch« programmiert haben. 

Unser System zur Programmierung der Spielkarte soll fol¬ 
gende Eigenschaften haben: 

1. Sehr gute Übersichtlichkeit — Fehler können leicht 
behoben werden. 

2. Möglichst geringer Speicherplatzverbrauch — denn 
besser das System zur Kartenprogrammierung ist, 
desto mehr Räume können untergebracht werden. 

3. Es muß nur eine Variable verändert werden, um das 
Spiel an jeder beliebigen Stelle (Raum) starten zu lassen 
— wichtig zum späteren Testen des Spiels. 

Im Prinzip gibt es verschiedene Grundmöglichkeiten. Alle 
haben jedoch ihre Mängel. Nach längerem Ausprobieren der 
einzelnen Möglichkeiten hat sich bei mir die Technik, die ich 
Ihnen nun vorstellen werde, bis jetzt tadellos bewährt. 

Mit dem herkömmlichen Basic des C 64 ist diese Technik 
jedoch nicht realisierbar. Unser erster Schritt soll deshalb 
darin bestehen, das bescheidene Basic des C 64 um drei 
entscheidende Befehle zu erweitern, beziehungsweise drei 
bereits vorhandene Befehle zu modifizieren. 

Bitte geben Sie das folgende Programm ein und speichern 
Sie es anschließend ab. Noch besser ist es, wenn Sie zuerst 
das Befehlseingabemodul, das Sie hoffentlich bereits ab¬ 
getippt haben, laden, und es um das folgende Listing 8 er¬ 
gänzen. 


Nachdem das Programm gestartet wurde, stehen uns fol¬ 
gende neue, beziehungsweise erweitere Befehle zur Verfü¬ 
gung: 

GOTO X, GOSUB X, RESTORE X. 

Diese drei Befehle sind also so restauriert worden, daß sie 
auch in Abhängigkeit von einer Variablen und sogar von 
einem Förmelausdruck funktionieren. DerON GOTO- und der 
ON GOSUB-Befehl kann nun getrost auf den »Müll« geworfen 
werden. 

Folgende Programmierung ist nun möglich: 

10 rem demoprogramm 
20 X = 100 
30 GOTO X 
100 PRINT "SPITZE !" 

110 END 

oder: 10 rem demoprogramm 
20 GOSUB 90 + 10 
30 END 

100 PRINT "SPITZE I" : RETURN 

sowie: 10 rem demoprogramm 
20 INPUT "WERT"; X 
30 IF X<1 OR X>3 THEN GOTO 20 
40 RESTORE 100*3 : READXS : PRINT X$ : 

GOTO 20 
100 DATA HALLO 
200 DATA WIE 
300 DATAGEHTS 

Wer sich das letzte Beispielprogramm genau anschaut und 
nachdenkt, dem kommt vielleicht jetzt schon eine Idee, wie 
die Kartenprogrammierung funktionieren könnte. 

Bev? r wir uns nun mit der Kartenprogrammierung beschäf¬ 
tigen, müssen wir den folgenden Aspekt berücksichtigen: 

Durch die drei neuen Befehle bietet sich eine vollkommen 
neue Programmiermöglichkeit, bei der beachtet werden muß 
beziehungsweise sollte, wie man die einzelnen Programmzei¬ 
len 0 bis 63999 belegt. 

Betrachten Sie bitte einmal die folgende Skizze: 


10 

DATA 76,24,1,177,251,145,251,200,208,24 



9,230,252,202,208,244,96,120,160,0,169 

<104> 

12 

DATA 160,132,251,133,252,162,32,32,11,1 



,169,224,132,251,133,252,162,32,32,11 

<025> 

14 

DATA 1,169,53,133,1,88,96:FGR 1=264 TO 



310:READ X:POKE I,X:NEXT:SYS 264 

<234> 

16 

FOR 1=710 TO 730:READ X:POKE I,X:NEXT 

<213> 

18 

DATA 208,3,76,29,168,32,192,2,32,19,166 



,56,165,95,233,1,164,96,76,36,168 

< 165> 

2 B 

POKE 40996,197:POKE 40997,2:P0KE 1,54 

<087> 

22 

FOR 1=43168 TO 43170:READ X:POKE I,X:NE 



XT 

< 174> 

24 

FOR 1=704 TO 709:READ X:POKE I,X:NEXT 

<230> 

26 

DATA 32,192,2,32,138,173,76,247,183 

< 114> 


Listing 8 
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Damit wäre die Spielkarte nun auch schon zum ersten Teil 
programmiert. 

Raum 1 steckt in den Zeilen 10100 bis 10120 
Raum 2 steckt in den Zeilen 10200 bis 10220 
entsprechend die anderen Räume. 

Dieses Programm ist jedoch noch nicht lauffähig, da jegli¬ 
che Steuerung fehlt. Die Steuerung ist Aufgabe des Action¬ 
moduls, das in den Zeilen 1000 bis maximal 9999 steht (wie 
der letzten Skizze zu entnehmen). 

Wir wollen zunächst eine primitive Steuerung simulieren. 
Geben Sie dazu bitte folgende weitere Zeilen ein: 

1000 REM ACTIONMODUL 

1010 INPUT "IN WELCHEN RAUM WOLLEN SIE 

GEHEN?":ZN 

1015 IF ZN<1 OR ZN >6 THENPRINT"DAS GEHT 

NICHT ":GOTO1010 

1020 GOSUB 10000+ZN *100 

1030 GOTO 1000 

Nun ist das Programm lauffähig. 

Wie auch bei den meisten folgenden Listings erübrigt sich 
hier eine Dokumentation. Interessant ist lediglich Zeile 1020. 

Dort steht die Formel, mit der dann mittels GOSUB der 
aktuelle Raum erreicht werden kann. 

Das vorliegende Actionmodul ist selbstverständlich noch 
extrem einfach. Im Moment kann man noch beliebig jeden 
Raum direkt anlaufen — falls man überhaupt von »Laufen« 
reden kann. 

Löschen Sie bitte nun folgende Zeilen wieder: 1010,1015, 
1020 und 1030. Wichitg ist nur, daß Sie sich die Formel zur 
Errechnung des jeweiligen Raumes merken: 

Raum = lOOOO+ZNMOO. 

ZN ist die jeweilige Zimmernummer, identisch mit den Num¬ 
mern auf dem gezeichneten Spielplan. Der Raum bezie¬ 
hungsweise die Formel bestimmt die Zeilennummer, ab der 
der Raum im Programm steht. 

Es wird nun höchste Zeit, daß wir unser Befehlseingabe¬ 
modul in Bewegung setzen. 

Das Actionmodul muß so geändert beziehungsweise 
gestaltet werden, daß man nicht mehr Räume direkt ansteu¬ 
ern, sondern nur noch von Raum zu Raum laufen kann. 
Zunächst ein wenig Theorie: 

Wir wollen dem Spieler unseres Adventures erlauben, 
direkte Himmelsrichtungen einzugeben, wenn er sich bewe¬ 
gen will. 

Wenn er zum Beispiel nach Norden gehen will, so muß er 
einfach »N« eingeben. 

Manche Adventures hingegen verlangen Eingaben wie 
»GEHE NORD«. Dies ist meines Erachtens nach jedoch 
unnötig, da es dem Spieler schnell auf die Nerven fallen kann, 
denn es ist wesentlich einfacher nur ein bis zwei Buchstaben 
zum Laufen einzugeben und nicht immer zwei Worte. 

Vielleicht können Sie sich noch daran erinnern, daß ich 
bereits im Kapitel zur Programmierung unseres ersten 
Moduls festgelegt habe, daß Himmelsrichtungen wie ge¬ 
wöhnliche Verben behandelt werden können. 

Deshalb wollen wir die zehn möglichen Himmelsrichtungen 
(inklusiv rauf und runter) nun in unserer Verbtabelle aufneh¬ 
men — beziehungsweise mit dem Programmieren der einzel¬ 
nen Worttabellen beginnen. 

Geben Sie bitte folgende Zeilen zum bisherigen Programm 
ein: 

52000 REM TABELLEN 
52005 RESTORE 52000 

52010 REM VERBTABELLE- 

52020 DATA N,S,W,0,NW,N0,SW,S0,RAUF,RUNTER 
52100 VZ=10:DIMVES(VZ):FOR l = 1TOVZ: READ VE$(I) 

: NEXT 

53000 RETURN 


Bitte legen Sie sich nun ein Blatt Papier an, auf dem Sie die 
einzelnen Tabellen, die bald kommen, ausführlich notieren — 
also den jeweiligen Wert zu jedem einzelnen Verb, Objekt, 
Gegenstand etc. ... 

Nun müssen wir in den Kopf noch den Aufruf zum Unter¬ 
programm der Tabellen einbauen. Dazu folgende Zeile ein¬ 
geben: 

30 GOSUB 52000 : REM TABELLEN DEFINIEREN 

Wir erhalten somit also Verbzahlen VE für die einzelnen 
Himmelsrichtungen. Bevor wir jedoch die GEH-Routine im 
Actionmodul einbauen können, müssen wir die Spielkarte 
noch verbessern. 

Bisher bestand die Spielkarte nur aus knappen Texten. Nun 
müssen noch Informationen eingebaut werden, die angeben, 
wie die Räume miteinander verbunden sind. Dies geht relativ 
einfach: 

Geben Sie bitte wieder die Ergänzungszeilen aus Listing 9 
ein: 


0 REM 

***************************** 

<081 > 

1 REM 

* ADVENTURE-PROGRAMMIERKURS 

* 

<073> 

2 REM 

* 


* 

<229> 

3 REM 

* UEBUNGS-PROGRAMM 

* 

< 145> 

4 REM 

***************************** 

<085> 

9 REM 

BASIC-ERWEITERUNG 


< 120> 

10000 

REM- 

SPIELKARTE - 


<048> 

10100 

REM RAUM 1 



<037> 

10105 

PRINT"RAUM 

NUMMER 1" 


<183> 

10120 

RETURN 



<061 > 

10200 

REM RAUM 2 



< 13B> 

10205 

PRINT"RAUM 

NUMMER 2" 


<028> 

10220 

RETURN 



< 161 > 

10300 

REM RAUM 3 



<240> 

10305 

PRINT"RAUM 

NUMMER 3" 


< 130> 

10320 

RETURN 



<006> 

101400 

REM RAUM 4 



<085> 

12 /5 

PRINT"RAUM 

NUMMER 4" 


<231 > 

10420 

RETURN 



< 106> 

10500 

REM RAUM 5 



< 187> 

10505 

PRINT"RAUM 

NUMMER 5" 


<077> 

10520 

RETURN 



<207> 

10600 

REM RAUM 6 



<032> 

10605 

PRINT"RAUM 

NUMMER 6" 


<17B> 

10620 

RETURN 



<051 > 




Listing 9 



Wir haben in jedem »Raum« nun noch eine DATA-Zeile mit 
zehn Werten. Diese Werte geben an, ob und in welche Rich¬ 
tungen gelaufen werden kann. Jedesmal, wenn der Spieler 
einen Raum betritt, werden diese zehn Zahlen in das Feld 
Rl(1) bis Rl(10) eingelesen. 

Dieses Feld ist so aufgebaut: 



1 

2 

3 

4 

S 

6 

7 

8 

9 10 

RI 

1 N 

S 

W 

0 

NW 

NO 

SW 

SO 

RAUF | RUNTER | 












. Diese Skizze zeigt innerhalb welcher Programmzeilen wel¬ 
che Programmteile liegen. 

Bisher haben wir nur einige Zeilen des Kopfes (Befehls¬ 
erweiterung um GOTO X etc.) sowie ab 50000 für das 
Befehlseingabemodul belegt. 

Die Zeilen 10000 bis maximal 49999 sind der Spielkarte 
gewidmet. 

Wir haben also 39999 Zeilen für die Programmierung der 
Spielkarte zur Verfügung. Man kann davon ausgehen, daß 
man für die Programmierung eines einzelnen Raumes der 
Spielkarte (Text und Action) allerhöchstens 100 Zeilen benö¬ 
tigt. In 39999 Zeilen lassen sich also maximal 400 Räume 
unterbringen. Ein vernünftiges Adventure in bezug auf 
Räume und Action wird jedoch bestimmt nicht 400 Räume 
haben, da dies mit 38 KByte RAM wohl kaum möglich sein 
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dürfte. Ich war trotzdem so großzügig und habe 39999 Zeilen 
für ein Maximum von 400 Räumen zur Verfügung gestellt 
(was natürlich nicht heißen soll, daß Ihre Spiele viele Räume 
haben müssen), denn es ist besser, wenn man sich zehnmal 
überschätzt als einmal unterschätzt hat, was die Menge und 
Verteilung der Programmzeilen anbelangt. Das vorgestellte 
System ist somit auch zukunftssicher (vielleicht gibt es doch 
einmal eine Basic-RAM-Erweiterung für den C 64, oder man 
setzt den neuen PC 128 ein). 

Für die nächsten Überlegungen werden wir uns auf die fol¬ 
gende Spielkarte beziehen: 



Dies ist ein Spielplan mit sechs Räumen. Wie man solche 
Pläne anfertigt, haben Sie bereits im Theorie-Teil dieses Kur¬ 
ses gelernt. Die einzelnen Räume sind von 1 bis 6 durchnu¬ 
meriert. 

Ich habe den Plan absichtlich so kurz gehalten, da er für 
unsere ersten Versuche völlig ausreicht, und ich Ihnen unnö¬ 
tige Abtipparbeit soweit wie möglich ersparen möchte. 

Bitte ergänzen Sie Ihr bisheriges Programm (Basic- 
Erweiterungsroutine und Befehlseingabemodul) nun um die 
Zeilen von Listing 10. 


10102 

DATA 

0,3,0,2,0,0,0,0,0,0 

< 145 > 

10202 

DATA 

0,5,1,0,0,0,0,6,0,0 

<252> 

10302 

DATA 

1,0,0,0,0,0,0,0,0,4 

<090> 

10402 

DATA 

0 ,0,0,0,0,0,0,0,3,0 

< 18B> 

10502 

DATA 

2 ,0,0,0,0,0,0,0,0,0 

<032> 

10602 

DATA 

0 ,0,0,0,2,0,0,0,0,0 

< 132> 




Listing 10 


Zum Verständnis soll folgendes Beispiel dienen: 

Der Spieler steht im Raum A. 

Im Feld Rl(1) bis Rl(10) ist festgelegt, welche Räume von 
Raum A unter welchen Richtungen erreicht werden können. 

Nehmen wir einmal an, es gibt nur eine mögliche Richtung 
von Raum A aus, und zwar die Richtung Sueden (S), durch die 
man zu Raum B gelangt. Die DATA-Zeile für Raum A müßte in 
diesem Fall so aussehen: 

DATA 0,B,0,0,0,0,0,0,0,0 

Praktisch würde man für B natürlich den Wert des Raumes 
B einsetzen. Durch diese DATA-Zeile bedingt, muß das Rl- 
Feld so aussehen: 

Rl(1)=0, RI(2)=B, Rl(3) bis Rl(10)=0 

Wir nehmen nun an, daß der sich in Raum A befindliche 
Spieler in Richtung Norden (N) laufen will. 

Auf die Frage »WAS NUN?« gibt er folglich »N« ein. 

Das Befehlseingabemodul gibt sodann den Wert für das 
eingegebene Verb »N« aus. Also den Wert VE=1. 

Nun tritt das Actionmodul in Kraft. 

Zuerst überprüft es, ob der Verbzahlwert VE im Bereich 
zwischen 1 und 10 liegt—also, ob der Spieler sich bewegen 
will oder nicht (VE größer als 10). Das Actionmodul stellt fest, 
daß der Spieler sich bewegen will und fährt fort. 

3*3? 


Es überprüft nun, ob die Richtung, in die sich der Spieler 
bewegen will, überhaupt existiert. 

Es überprüft dazu, ob RI(VE) gleich Null ist oder nicht. 

Ist Ri(VE) = 0, so erfolgt die Fehlermeldung »Kein Weg in 
diese Richtung!«. 

Ist RI(VE) jedoch ungleich Null (was in Raum A der Fall ist, 
wenn sich der Spieler nach Süden bewegen will), so fährt das 
Modul fort. Hätte unser Spieler also »S« statt »N« eingegeben, 
so wäre folgendes passiert. 

Das Actionmodul hätte erst einmal die neue Zimmernum¬ 
mer registriert: 

ZN = RI(VE) 

Danach: GOSUB 10000 + ZN*100 
Dann: neues Feld RI von Raum B einiesen. 

Fertig. 

Diese Theorie wird mittels den folgenden Ergänzungszei¬ 
len nun in die Praxis umgesetzt: 

1010 GOSUB 50000 : REM BEFEHLSEINGABEMODUL 
1100 REM GEHEN IN EIN NEUES ZIMMER 
1105 IFVE< 1 OR VE> 10 THEN1200 
1110 IF RI(VE)=0 THENPRINT"KEIN WEG IN DIESE 
RICHTUNG !":GOTO1200 
1120 ZN = RI(VE) : PRINT " (CLR]" 

1130 GOSUB 10000 + ZN* 100 

1140 RESTORE 10000 + ZN * 100 

1150 FOR 1=1 TO 10 : READ Rl(l) : NEXT 

1200 GOTO 1000 

Nun sind wir schon fast fertig. 

Wir müssen im Kopf des Programmes nur noch eine Zeile 
einfügen, in der bestimmt wird, in weichem Zimmer der Spie¬ 
ler sich zu Beginn des Spiels befindet, 
also: 100 ZN = 1 : GOTO 1130 

Das Spiel beginnt somit in Raum 1. Um das Spiel in irgend 
einer., wideren Raum beginnen zu lassen, muß man nur den 
Wert in Zeile 100 entsprechend ändern, was beim späteren 
Fehlersuchen und Testen des Spiels eine große Hilfe dar¬ 
stellt. 

Hiermit ist unser Ziel erreicht — Sie wissen nun, wie man 
eine Spielkarte programmiert. 


0 REM ***************************** <081> 

1 REM * ADVENTURE—PROGRAMMIERKURS * <073> 

2 REM * * <229> 

3 REM * UEBUNGS-PROGRAMM * <145> 

4 REM ***************************** <0S5> 

9 REM BASIC—ERWEITERUNG <120> 


10 DATA 76,24,1,177,251,145,251,200,208,24 

9,230,252,202,203,244,96,120,160,0,169 <104> 

12 DATA 160,132,251,133,252,162,32,32,11,1 

,169,224,132,251,133,252,162,32,32,11 <025> 

14 DATA 1,169,53,133,1,SB,96:F0R 1=264 TO 


310:READ X:POKE I,X:NEXT:SYS 264 <234> 
16 FOR 1=710 TO 730:READ X:POKE I,X:NEXT <213> 
18 DATA 208,3,76,29,168,32,192,2,32,19,166 

,56,165,95,233,1,164,96,76,36,168 <165> 
20 POKE 40996,197:POKE 40997,2:POKE 1,54 <087> 
22 FOR I=4316B TO 43170:READ X:POKE I,X:NE 

XT <174> 
24 FOR 1=704 TO 709:READ X:POKE I,X:NEXT <230> 
26 DATA 32,192,2,32,138,173,76,247,183 <114> 
30 GOSUB 52000: REM TABELLEN DEFFINIEREN <209> 
100 ZN=1:GOTO 1130 <119> 
1000 REM ACTIONMODUL <1B5> 
1010 GOSUB 50000:REM BEFEHLSEINGABEMODUL <165> 
1100 REM GEHEN IN EIN NEUES ZIMMER <013> 
1105 IF VE<1 OR VE>10 THEN 1200 <038> 
1110 IF RI(VE)=0 THEN PRINT"KEIN WEG IN DI 

ESE RICHTUNG !":GOTO 1200 <232> 
1120 ZN=RI(VE):PRINT"ICLRJ" <239> 
1130 GOSUB 10000+ZN*100 <123> 
1140 RESTORE 10000+ZN*100 <132> 
1150 FOR 1=1 TO 10:READ RI(I):NEXT <230> 
1200 GOTO 1000 <254> 

10000 REM-SPIELKARTE- <048> 

10100 REM RAUM 1- <037> 

Listing 11 
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<145> 

< 183> 
<061> 
<13B> 
<252> 
<02B> 

< 161 > 
<240> 
<090> 

< 130> 
<006> 
<085> 
<18B> 
<231 > 

< 106> 
<187> 
<032> 
<077> 
<207> 
<032> 

< 132> 
<178> 
<051 > 
<05B> 
<228> 
<182> 

< 173> 
<098> 
<236> 

; <044> 
<226> 
<091 > 

50090 IF PEEK(203)=1 DR LEN(BE *)>68 THEN P 


RINT" "sPOKE 204,1:GOTD 50140 <022> 

50100 I=ASC(X*):IF I<65 OR I>90 THEN IF I< 

>32 AND 1020 AND 1034 THEN 500B0 <173> 

50110 IF 1=20 AND BE*=""THEN 50080 <093> 

50120 IF 1=20 THEN POKE 204,1:PRINT"<LEFT, 

2SPACE , 2LEFT > " ; : BE*=LEFT* (BE* , LEN (BE 
*)—1):GOTO 50070 <174> 

50130 PRINT X*;:BE*=BE*+X*:GOTO 50080 <013> 

50140 FOR 1=1 TO 10: BE* (I) ='"' s NEXT: WZ=1: FD 

R 1=1 TO LEN(BE*) <1S4> 

50150 : IF MID*(BE*,I,1> =" "THEN EOSUB 5019 

0:GOTO 50180 <240> 

50160 :IF WZ>10 THEN PRINT"EINGABE IST ZU 

LANG !":I=LEN(BE*)+1:GOTO 50180 <028> 

50170 :BE*(WZ)=BE*(WZ)+MID*(BE*,1,1) <069> 

50180 NEXT I:GOTO 50220 <079> 

50190 IC=0:FOR 11=1 TO AZ:IF BE*(WZ)=AU*(I 

1)THEN IC=1 - <086> 

50200 NEXT II:IF IC=0 THEN WZ=WZ+1:RETURN <105> 
50210 BE*(WZ)="":RETURN <081> 

50220 IF UD=1 THEN UD=0:GOTO 50240 <215> 

50230 WZ=1:VE=0:OB=0:PE=0 <163> 

50240 IC=0:G1=0:G2=0 <155> 

50250 FOR 1 = 1 TO VZ: IF BE*(WZ)=VE*(I)THEN 

VE=I:IC=1 <114> 

50251 IF LEN(BE*(WZ))<3 THEN 50260 <229> 

50255 IF BE*(WZ)=LEFT*(VE*(I),LEN(BE*(WZ)) 

)THEN VE=I-VAL(RIGHT*(VE*(I),1)):IC= 

1 < 211 > 

50260 NEXT I:IF IC=1 THEN 50350 <187> 

50270 FOR 1=1 TO GZ:IF BE*(WZ)<>GE*(I)THEN 

50300 <211> 

50280 IC=1:IF G1=0 THEN G1=I <212> 

50290 G2=I:IF G2=B1 THEN G2=0 <020> 

50300 NEXT I:IF IC=1 THEN 50350 <227> 

50310 FOR 1=1 TO OZ:IF BE*(WZ)=0B*(I)THEN 

0B=I:IC=1 <147> 

50320 NEXT I:IF IC=1 THEN 50350 <247> 

50330 FOR 1=1 TO PZ:IF BE*(WZ)=PE*(I>THEN 

PE=I:IC=1 <176> 

50340 NEXT I <051> 

50350 IF BE*(WZ)="UND"THEN UD=1:IC=1 <083> 

50360 IF IC=0 THEN PRINT"ICH KENNE ";BE*(W 

Z>;" NICHT !":RETURN <004> 

50370 WZ=WZ+1:IF WZ>10 OR BE*(WZ)=""OR UD= 

1 THEN RETURN <177> 

50380 IC=0:GOTO 50250 <1B9> 

52000 REM TABELLEN <161> 

52005 RESTORE 52000 <115> 

52010 REM VERBTABELLE- <065> 

52020 DATA N,S,W,0,NW,N0,SW,S0,RAUF,RUNTER <241> 
52100 VZ=10:DIM VE*(VZ):FOR 1=1 TO VZ:READ 

VE*(I):NEXT <163> 

53000 RETURN <101> 

Listing 11 


Die vorgestellte Spielkarte ist natürlich jedoch nur mit 
einem sehr spärlichen Raumbeschreibungstext ausgestat¬ 
tet. Dies können Sie aber leicht selbst verbessern — das 
nötige Wissen dazu haben Sie jetzt. Wenn Sie bisher mitgear¬ 
beitet haben, müßten Sie nun das Listing 11 im Computer 
haben. 

Wir haben nun ein Adventure mit Räumen der primitivsten 
Art vorliegen. Alles was man bisher machen kann, ist herum¬ 
laufen. 

Es ist nun sehr wünschenswert, daß man nach jeder Raum¬ 
beschreibung eine Angabe erhält, in welche Richtung man 
sich bewegen kann. 

Wir schreiben deshalb nun eine kleine Routine, die nach 
jeder Raumbeschreibung »MÖGLICHE RICHTUNGEN:...« 
ausgibt. 

Dies läßt sich ganz einfach realisieren, wenn man unser bis¬ 
heriges Programm durch Listing 12 ergänzt: 


1160 PRINT"CDOWNJMOEGLICHE RICHTUNGEN : 

5 <115> 

1165 IC=0:FOR 1=1 

TO 10: IF RI (1)00 THEN 

P 

RINT VE*(I); 

‘:IC =1 

< 161 > 

1170 NEXT I 


<097> 

1175 IF IC=0 THEN 

PRINT"KEINE." 

< 17B> 

1180 IF IC=1 THEN 

PRINT CHR*(20) 

<084> 

Listing 12 




Eine Beschreibung erübrigt sich, da es sich um eine einfa¬ 
che Testschleife handelt, wie wir sie bereits des öfteren 
besprochen haben. 

Im Prinzip ist die Programmierung der Spielkarte nun fast 
abgeschlossen. Wir brauchen nur noch zwei kleine Routinen. 
Eine davon sorgt dafür, daß bei jeder Raumbeschreibung 
ausru eben wird, welche Gegenstände sich im jeweiligen 
Raum befinden. 

Dazu müssen wir jedoch zunächst unseren Wortschatz mit 
einigen Gegenständen erweitern. 

Die Gegenstandsnamen werden, wie bereits besprochen, 
in dem Feld GE$(1) bis GE$(GZ) abgelegt, wobei GZ die 
Anzahl der Gegenstände darstellt. 

Wir brauchen jedoch noch ein weiteres Feld für die Gegen¬ 
stände, in dem angegeben wird, in welchen Räumen sich 
diese befinden. 

Dieses Feld sei GE(1) bis GE(GZ). 

Wir ergänzen unser Programm nun um Listing 13. 


52200 REM GEGENSTANDSTABELLE- <003> 

52210 DATA SCHWERT,1 <189> 

52211 DATA SEIL,2 <204> 

52212 DATA SCHLUESSEL,4 <157> 

52213 DATA DIAMANT,5 <162> 


52300 G7=4:DIM GE*(GZ):DIM GE(GZ):FOR 1=1 

TO GZ:READ GE*(I>:READ GE(I):NEXT I <098> 

Listing 13 


Bitte notieren Sie sich auch diese Tabelle auf Papier. 

In jeder DATA-Zeile dieser Tabelle steht zuerst der Name 
des Gegenstands, und danach eine Zahl, die angibt, in wel¬ 
chem Raum sich der Gegenstand befindet (Raumzahl: ver¬ 
gleiche Karte). 


1185 PRINT"ICH SEHE : "; <240> 

1188 IC=0:FOR 1=1 TO GZ:IF GE(I)=ZN THEN P 

RINT GE*(I) 5 "," 5 :IC=1 <160> 

1190 NEXT <044> 

1192 IF IC=0 THEN PRINT"NICHTS BESONDERES. 

" < 010 > 

1194 IF IC=1 THEN PRINT CHR*(20) <09B> 


Listing 14 


10102 DATA 0,3,0,2,0,0,0,0,0,0 
10105 PRINT"RAUM NUMMER 1" 

10120 RETURN 

10200 REM RAUM 2 - 

10202 DATA 0,5,1,0,0,0,0,6,0,0 
10205 PRINT"RAUM NUMMER 2" 

10220 RETURN 

10300 REM RAUM 3 - 

10302 DATA 1,0,0,0,0,0,0,0,0,4 
10305 PRINT"RAUM NUMMER 3" 

10320 RETURN 

10400 REM RAUM 4 - 

10402. DATA 0,0,0,0,0,0,0,0,3,0 
10405 PRINT"RAUM NUMMER 4" 

10420 RETURN 

10500 REM RAUM 5 - 

10502 DATA 2,0,0,0,0,0,0,0,0,0 
10505 PRINT"RAUM NUMMER 5" 

10520 RETURN 

10600 REM RAUM 6 - 

10602 DATA 0,0,0,0,2,0,0,0,0,0 
10605 PRINT"RAUM NUMMER 6 " 

10620 RETURN 

50000 REM **##**#****■***■»**#**#***##** 

50010 REM * BEFEHLSEINGABE * 

50020 REM * BEFEHLSZERLEGUNG * 

50030 REM * BEFEHLSCODIERUNG * 

50040 REM ff*************************** 

50050 IF UD=1 THEN 50220 

50060 POKE 198,0:BE*="":PRINT“WAS NUN ? 

50070 POKE 204,0 

50080 GET X*:IF X*=""THEN 50080 
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Nun wird die Routine eingefügt, die dafür sorgt, daß bei 
jeder Raumbeschreibung die sich im Raum befindlichen 
Gegenstände aufgezählt werden. 

Tippen Sie bitte Listing 14 ein. 

Wenn Sie nun wieder im Spielplan »herumlaufen« , so Kön¬ 
nen Sie leicht feststellen, wo sich die einzelnen Gegenstände 
befinden. 

Nun müssen wir uns den Objekten zuwenden (Türen, Fen¬ 
ster, Schränke etc.) Zunächst wird wieder die Tabelle für die 
Objekte definiert. 

Die Objektnamen werden in OB$(1) bis OB$(OZ) unterge¬ 
bracht. Außerdem legen wir noch ein Feld 00(1) bis OO(OZ) 
an, in dem, analog zu den Gegenständen, gespeichert wird, 
wo sich die einzelnen Objekte befinden. Wir ergänzen durch 
Listing 15. 


52400 REM OBJEKTTABELLE- <0BB> 

52410 DATA TRUHE,5 <242> 
52412 DATA SCHACHT,6 <107> 
52414 DATA EISENRING,6 <019> 
52416 DATA TUER,2 <173> 
52418 DATA TUER,5 <178> 


52500 0Z=5:DIM OB*(OZ):DIM 00<0Z>:FOR 1=1 

TO 0Z:READ OB*(I):READ 00(I):NEXT I <122> 

Listing 15 


Was nun folgt ist ganz klar: Es muß eine Routine geschrie¬ 
ben werden, die bei jeder Raumbeschreibung die Objekte 
aufzählt (ganz analog zu den Gegenständen). Da es stilistisch 
schöner ist, die Objekte in der Aufzählung den Gegenstän¬ 
den voranzustellen, fügen wir in die bereits geschriebene 
Routine für die Gegenstände einfach eine Schleife ein, die 
die Objekte ausgibt — falls im Raum welche vorhanden sind. 

Es muß nur beachtet werden, daß in Zeile 1188 (Schleife 
für Gegenstände) die Checkvariable IC nicht mehr auf Null 
gesetzt werden darf, da die Meldung »Nichts besonderes« 
nur dann erfolgen soll, wenn sich weder Objekt noch Gegen¬ 
stand im Raum befinden. 

Ergänzen Sie bitte nun um Listing 16. 


1186 IC=0:FOR 1=1 TO OZ:IF 00<I)=ZN 

THEN P 


RINT OBS(I);",“;:IC=1 


< 189> 

11B7 NEXT 


<041> 

1188 FOR 1=1 TO GZ:IF GE(I)=ZN THEN 

PRINT 


GES(I)IC=1 


<248> 

Listing 16 




Hiermit wären wir auch schon am Ende der Spielkarten- 
Programmierung angelangt. Sie haben dafür eine Program¬ 
miertechnik kennengelernt, die folgende besondere Merk¬ 
male hat: 

— geringer Speicherplatzverbrauch 

— leichte Korrekturmöglichkeit der Spielkarte 

— vollkommen ausbaufreundlich 

Das somit vorliegende Adventure ist also leicht modifizier¬ 
bar. 

Sie können jeden Raum mit beliebigem Text versehen, Ge¬ 
genstände und Objekte auf der Spielkarte verteilen und Sie 
haben die Möglichkeit, das Spiel in jedem beliebigen Raum 
beginnen zu lassen (dazu muß nur der ZN-Wert in Zeile 100 
verändert werden), was beim späteren Testen des Spiels 
sehr wichtig ist. Sie können auch jederzeit neue Gegenstän¬ 
de und Objekte in die Karte einfügen — dazu müssen nur die 
Tabellen, die ab Zeile 52000 liegen, ergänzt und die Varia¬ 
blen GZ, OZ etc. entsprechend angepaßt werden. 

Wenn Sie bis jetzt richtig mitgearbeitet haben, so müssen 
Sie Listing 17 im Computer haben. 


0 REM ***************************** <081> 

1 REM * ADVENTURE—PROGRAMMIERKURS * <073> 

2 REM * * <229> 

3 REM * UEBUNGS-PROGRAMM * <145> 

4 REM ***************************** <085> 

9 REM BASIC-ERWEITERUNG <120> 

10 DATA 76,24,1,177,251,145,251,200,208,24 

9,230,252,202,20B,244,96,120,160,0,169 <104> 

12 DATA 160,132,251,133,252,162,32,32,11,1 

,169,224,132,251,133,252,162,32,32,11 <025> 

14 DATA 1,169,53,133,1,88,96sF0R 1=264 TO 

310:READ X:POKE I,X:NEXT:SYS 264 <234> 

16 FOR 1=710 TO 730:READ X:PDKE I,X:NEXT <213> 
18 DATA 208,3,76,29,168,32,192,2,32,19,166 

,56,165,95,233,1,164,96,76,36,168 <165> 

20 POKE 40996,197:POKE 40997,2:POKE 1,54 <0B7> 

22 FOR I=4316B TO 43170:READ X:POKE I,X:NE 

XT <174> 

24 FOR 1=704 TO 709:READ X:POKE I,X:NEXT <230> 
26 DATA 32,192,2,32,138,173,76,247,183 <114> 

30 GOSUB 52000: REM TABELLEN DEFFINIEREN <209> 
100 ZN=1:GOTO 1130 <119> 

1000 REM ACTIONMODUL <185> 

1010 GOSUB 50000:REM BEFEHLSEINGABEMODUL <165> 
1100 REM GEHEN IN EIN NEUES ZIMMER <013> 

1105 IF VE<1 OR VE>10 THEN 1200 <03B> 

1110 IF RI(VE)=0 THEN PRINT"KEIN WEG IN DI 

ESE RICHTUNG !":GOTO 1200 <232> 

1120 ZN=RI(VE):PRINT"<CLR>” <239> 

1130 GOSUB 10000+ZN*100 <123> 

1140 RESTORE 10000+ZN*100 <132> 

1150 FOR 1=1 TO 10:READ RI(I):NEXT <230> 

1160 PRINT"tDOWNJMOEGLICHE RICHTUNGEN : "5 <115> 
1165 IC=0:FOR 1=1 TO 10: IF RI (1)00 THEN P 

RINT VES(I)j",";:IC=1 <161> 

1170 NEXT I <097> 

1175 IF IC=0 THEN PRINT"KEINE." <178> 

1180 IF IC=1 THEN PRINT CHRS(20) <0B4> 

1185 PRINT"ICH SEHE : "; <240> 

1186 IC=0:FOR 1=1 TO OZ:IF 00(I)=ZN THEN P 

RINT OBS(I);",";:IC=1 <189> 

1187 NEXT <041> 

118C OR 1=1 TO GZ:IF GE(I)=ZN THEN PRINT 

GES( IIC=1 <248> 

1190 NEXT <044> 

1192 IF IC=0 THEN PRINT"NICHTS BESONDERES. 


< 010 > 

1194 IF IC=1 THEN PRINT CHR*(20) <09B> 

1200 GOTO 1000 <254> 

10000 REM-SPIELKARTE- <048> 

10100 REM RAUM 1- <037> 

10102 DATA 0,3,0,2,0,0,0,0,0,0 <145> 

10105 PRINT"RAUM NUMMER 1" <183> 

10120 RETURN <061> 

10200 REM RAUM 2- <138> 

10202 DATA 0,5,1,0,0,0,0,6,0,0 <252> 

10205 PRINT“RAUM NUMMER 2" <028> 

10220 RETURN <161> 

10300 REM RAUM 3- <240> 

10302 DATA 1,0,0,0,0,0,0,0,0,4 <090> 

10305 PRINT"RAUM NUMMER 3" <130> 

10320 RETURN <006> 

10400 REM RAUM 4- <0B5> 

10402 DATA 0,0,0,0,0,0,0,0,3,0 <18B> 

10405 PR INT "RAUM NUMMER 4" LlStlDQ < 231 > 

10420 RETURN 17 M <106> 

10500 REM RAUM 5- " <1B7> 

10502 DATA 2,0,0,0,0,0,0,0,0,0 <032> 

10505 PRINT"RAUM NUMMER 5" <077> 

10520 RETURN <207> 

10600 REM RAUM 6- <032> 

10602 DATA 0,0,0,0,2,0,0,0,0,0 <132> 

10605 PRINT"RAUM NUMMER 6" <17B> 

10620 RETURN <051> 

50000 REM **************************** <05B> 

50010 REM * BEFEHLSEINGABE * <228> 

50020 REM * BEFEHLSZERLEGUNG * <182> 

50030 REM * BEFEHLSCODIERUNG * <173> 

50040 REM **************************** <09B> 

50050 IF UD=1 THEN 50220 <236> 

50060 POKE 198,0:BES="":PRINT"WAS NUN ? "; <044> 
50070 POKE 204,0 <226> 

50080 GET XS: IF XS=""THEN 50080 <091> 

50090 IF PEEK(203)=1 OR LEN(BES)>68 THEN P 

RINT" ":POKE 204,1:GOTO 50140 <022> 


50100 I=ASC(XS):IF I<65 OR I>90 THEN IF I< 

>32 AND 1020 AND 1034 THEN 50080 <173> 
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saue 

IF 1=20 AND BE*=""THEN 50080 

<093> 

50120 

IF 1=20 THEN POKE 204, 1 .-PRINT" U.EFT, 
2SPACE , 2LEFT > " ; : BE*=LEFT* (BE*, LEN (BE 



*)—1):GOTO 50070 

< 174> 

50130 

PRINT X*;:BE*=BE*+X*:GOTO 50080 

<013> 

50140 

FOR 1 = 1 TO 10:BE*(I> = "":NEXT:WZ = 1:FO 



R 1=1 TO LEN(BE*> 

< 154> 

50150 

:IF MID*(BE*,I,1)=" "THEN GOSUB 5019 



0:GOTO 50180 

<240> 

50160 

:IF WZ>10 THEN PRINT"EINGABE IST ZU 



LANG !I=LEN<BE*>+1:GOTO 50180 

<028> 

50170 

:BE*(WZ > =BE*(WZ)+MID*(BE*,1,1) 

<069> 

50180 

NEXT IrGOTO 50220 

<079> 

50190 

IC=0:FOR 11=1 TO AZ:IF BE*(WZ)=AU*(I 



1)THEN IC=1 

<086> 

50200 

NEXT 11:IF IC=0 THEN WZ=WZ+1:RETURN 

< 105> 

50210 

BE*<WZ>="":RETURN 

<081 > 

50220 

IF UD=1 THEN UD=0:GOTO 50240 

<215> 

50230 

WZ=1:VE=0:OB=0:PE=0 

< 163> 

50240 

IC=0:G1=0:G2=0 

< 155> 

50250 

FOR 1=1 TO VZ:IF BE*(WZ)=VE*(I)THEN 



VE=I:IC=1 

<114> 

50251 

IF LEN(BE*(WZ)><3 THEN 50260 

<229> 

50255 

IF BE*(WZ)=LEFT*(VE*(I>,LEN(BE*(WZ)) 

)THEN VE=I—VAL(RIGHT*(VE*(I),1)>:IC= 



1 X 

< 211 > 

50260 

NEXT I: IF IC=1 THEN 50350 

<1£7> 

50270 

FOR 1=1 TO GZ:IF BE*(WZ)<>GE*(I>THEN 



50300 

< 211 > 

50280 

IC=1:IF G1=0 THEN G1=I 

< 212 > 

50290 

G2=I:IF G2=G1 THEN G2=0 

<020 > 

50300 

NEXT I:IF IC=1 THEN 50350 

<227> 

50310 

FOR 1=1 TO OZ:IF BE*(WZ)=OB*(I>THEN 



OB=I:IC=1 

< 147> 

50320 

NEXT I:IF IC=1 THEN 50350 

<247> 

50330 

FOR 1=1 TO PZ:IF BE*(WZ>=PE*(I)THEN 



PE=I:IC=1 

< 176> 

50340 

NEXT I 

<051 > 

50350 

IF BE*(WZ)="UND"THEN UD=1:IC=1 

<083> 

50360 

IF IC=0 THEN PRINT"ICH KENNE ";BE*(W 



Z);" NICHT !":RETURN 

<004> 

50370 

WZ=WZ+1:IF WZ>10 OR BE*(WZ)=""OR UD= 



1 THEN RETURN 

< 177> 

50380 

IC=0:GOTO 50250 

< 189> 

52000 

REM TABELLEN 

< 161 > 

52005 

RESTORE 52000 

< 115> 

52010 

REM VERBTABELLE - 

<065> 

52020 

DATA N,S,W,0,NW,NO,SW,SO,RAUF,RUNTER 

<241 > 

52100 

VZ=10:DIM VE*(VZ):FOR 1=1 TO VZ:READ 


52200 

VE*(I>:NEXT 

REM GEGENSTANDSTABELLE - 

< 163> 
<003> 

52210 

DATA SCHWERT,1 

< 189> 

52211 

DATA SEIL,2 

<204> 

52212 

DATA SCHLUESSEL,4 

<157> 

52213 

DATA DIAMANT,5 

<162> 

52300 

GZ=4:DIM GE*(4):DIM GE(4):FOR 1=1 TO 


52400 

GZ:READ GE*(I):READ GE(I):NEXT I 

REM OBJEKTTABELLE - 

< 136> 
<088> 

52410 

DATA TRUHE,5 

<242> 

52412 

DATA SCHACHT ,6 

< 107> 

52414 

DATA EISENRING ,6 

<019> 

52416 

DATA TUER,2 

<173> 

52418 

DATA TUER,5 

< 178> 

52500 

DZ=5:DIM OB*(OZ):DIM DO(OZ):FOR 1=1 



TO OZ:READ OB*(I):READ 00(I):NEXT I 

< 122 > 

53000 

RETURN 

<101> 

Listing 17 (Schluß) 



Mit diesem Listing werden wir in den folgenden Abschnit¬ 
ten Weiterarbeiten — vergessen Sie deshalb nicht, es richtig 
abzuspeichern! 

Leider ist das vorliegende Adventure noch ohne jeglichen 
Witz. 

Im folgenden Abschnitt lernen Sie, wie man das Actionmo¬ 
dul mit Routinen wie NIMM, VERLIERE, INVENTUR, SCHAU, 
OEFFNE etc. programmiert. 

Bitte lesen Sie aber erst dann weiter, wenn Sie die Pro¬ 
grammierung der Spielkarte in allen Einzelheiten gut verstan¬ 
den haben. 


Ausbau des Actionmoduls 


Endlich ist es soweit — wir bringen Leben in unser bisher 
bescheidenes Adventure. 

Im allgemeinen kann man die Actionprogrammierung in 
zwei Hauptgruppen aufteilen: 

a) Allgemeine Action 

Dies sind Dinge, die der Spieler ständig machen kann — 
also überall auf der Spielkarte (zum Beispiel NIMM, 
VERLIERE, WARTE, SINGE, INVENTUR). 

b) Raumspezifische Action 

Bei dieser Action handelt es sich um etwas, das nur in 
einem bestimmten Raum durchgeführt werden kann, 
zum Beispiel Öffnen einer Tür, einer Truhe oder 
Drücken eines Knopfes, der sich an der Zimmerwand 
befindet. 

Wir wollen uns zunächst der allgemeinen Action zuwen¬ 
den. Dazu müssen wir zunächst die Verbtabelle um einige 
Verben ergänzen, die im Rahmen der allgemeinen Action ver¬ 
wendet werden. 

OEFFNE: Dieser Befehl dient zum Öffnen von Türen, Ki¬ 
sten etc. 

SCHLIESSE: Umkehrung von OEFFNE 

SCHAUE, UNTERSUCHE: Diese Verben haben Doppel¬ 
funktion. 

Alleinstehend angewandt (»SCHAUE«) geben Sie die 
Raumbeschreibung wieder. 

In Verbindung mit einem Objekt oder Gegenstand (»UN¬ 
TERSUCHE TRUHE«) geben sie eine Beschreibung dieses 
Gegenstands beziehungsweise Objekts wieder. 

NIMM, NEHME, HOLE: Sie dienen zum Nehmen von Ge¬ 
genständen. 

Vf .LIERE, LEGE, WIRF, WERFE: Umkehrung von NIMM. 

INVENTUR: Mittels diesem Befehl erfährt der Spieler, wel¬ 
che Gegenstände er zur Zeit bei sich hat. 

Lassen Sie uns nun die Verbtabelle ergänzen: 

52030 DATA OEFFNE,SCHLIESSE,SCHAUE, 

UNTERSUCHEI,NIMM,NEHMEI,HOLE2 

52035 DATA VERLIERE,LEGEI,WIRF2.WERFE3, 
INVENTUR 

Der VZ-Wert in Zeile 52100 muß entsprechend auf VZ=22 
geändert werden. 

Nach dieser Ergänzung sieht unsere Verbtabelle so aus: 


1 bis 10 

Himmelsrichtungen 

11 

OEFFNE 

12 

SCHLIESSE 

13 

SCHAUE,UNTERSUCHE 

15 

NIMM,NEHME,HOLE 

18 

VERLIERElLEGE,WIRF,WERFE 

22 

INVENTUR 


Sicher können Sie sich noch an den Abschnitt »Befehls¬ 
analyse« erinnern, in dem der Begriff Alternativverb einge¬ 
führt worden ist. 

Dadurch läßt sich auch erklären, warum die Verben nicht 
direkt durchnumeriert sind. 

Die Tabelle sagt zum Beispiel aus, daß ganz egal, ob der 
Spieler nun NIMM, NEHME oder gar HOLE eingibt, die Verb¬ 
zahl VE = 15 entsteht. 

Entsprechendes gilt für die anderen Verbfamilien. 

Lassen Sie uns nun die einzelnen Routinen in unser Adven¬ 
ture einbauen. 

NIMM-Routine 

Auf unserem Spielplan haben wir bereits einige Gegen¬ 
stände verteilt (Schwert, Seil, Schlüssel, Diamant). Wir wol¬ 
len unserem Spieler nun erlauben, diese Gegenstände auch 
einsammeln zu können. 

Wir ergänzen das Actionmodul um Listing 18. 
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1200 

REM 


<067> 

2000 

REM REAKTION AUF BEFEHLE (ALLGEMEINE 
ACTION) 

< 10B> 

2100 

REM NIMM ROUTINE 


<034> 

2110 

IF VE015 THEN 2200 


< 161 > 

2120 

IF GE(Gl>OZN THEN PRINT"ICH SEHE 
SEN GEGENSTAND HIER NICHT !" 

DIE 

<016> 

2125 

IF GE(Gl)=—1 THEN PRINT"SIE HABEN 
SEN GEGENSTAND BEREITS !" 

DIE 

<077> 

2130 

IF GE(Gl)=ZN THEN GE(Gl>=-l:PRINT 

OK. 

<253> 

2200 

GOTO 1000 


<234> 

Listing 18 




Bitte starten Sie das Adventure. 

Geben Sie nacheinander folgende Befehle ein: 

NIMM SCHWERT, S, N 

Damit haben Sie in Raum 1 das Schwert genommen und 
sind nach S und dann, wieder mittels N, zurück nach Raum 
1 gegangen — das Schwert wird in der Raumbeschreibung 
nun nicht mehr erwähnt. Wie funktioniert diese Routine? 

Gehen wir einmal von der Befehlseingabe »NIMM 
SCHWERT« aus: 

Das Befehlsanalysemodul liefert an das Actionmodul fol¬ 
gende Werte: 

VE = 15 (Verbzahl) 

Gl = 1 (1. Gegenstandszahl) vgl. auch Gegenstands¬ 
tabelle. 

Daraufhin läuft die NIMM-Routine so ab: 

2110: Wenn die Verbzahl VE ungleich 15 ist, so wird die 
NIMM-Routine übersprungen. Mit so einer Abfrage 
beginnt jede Routine. 

2120: Wenn der Gegenstand GE(G1) nicht im gleichen 
Zimmer wie der Spieler ist, erfolgt eine Fehlermel¬ 
dung. 

2125: Wenn der Spieler den Gegenstand bereits hat, 
erfolgt eine Fehlermeldung, denn man kann nichts 
nehmen, was man bei sich trägt. 

2130: Wenn sich der Gegenstand im Zimmer befindet 
(GE(G1) = ZN), so nimmt der Spieler ihn (GE(G1) = 

-D- 

Wir legen fest: Jeder Gegenstand, der im Besitz des Spie¬ 
lers ist, hat, beziehungsweise bekommt, den Wert—1. 

INVENTUR-Routine 

Mit dem Befehl INVENTUR erfährt der Spieler jederzeit, 
welche Gegenstände in seinem Besitz sind. 

Bitte ergänzen Sie das Adventure um Listing 19. 


2200 REM INVENTUR ROUTINE <208> 
2205 IF VE<>22 THEN 2300 <255> 
2210 PRINT"ICH HABE: <224> 
2220 IC=0:FÜR 1=1 TO BZ:IF GE(I)=-1 THEN P 

RINT GE*(I)",";:IC=1 <165> 
2225 NEXT <059> 
2230 IF IC=0 THEN PRINT"NICHTS.“ <050> 
2235 IF IC=1 THEN PRINT"CLEFT,SPACE>" <222> 
2300 GOTO 1000 <07B> 


Listing 19 


Die Routine besteht im Prinzip nur aus einer Schleife, die 
die Gegenstandstabelle durchläuft und überprüft, welche 
Gegenstände den Wert —1 haben — also im Besitz des Spie¬ 
lers sind. 

Wenn Sie Ihr bisheriges Wissen einmal anwenden wollen, 
so können Sie einmal versuchen, die VERLIER-Routine, die 
ab Zeile 2300 stehen soll, selbst zu programmieren. Dies ist 
nicht schwer, da diese Routine fast analog zur NIMM-Routine 
läuft. Wer es selbst versuchen will, der sollte das Heft nun 
zunächst einmal weglegen. 

Die VERLIER-Routine ist in Listing 20 abgebildet. 


2300 REM VERLIER ROUTINE 


<210> 

2305 IF VE<>18 THEN 2400 

2310 IF GE (Gl >0-1 THEN PRINT" ICH HABE 

DAS 

< 106> 

NICHT !" 


<006> 

2320 IF GE(Gl)=—1 THEN GE(Gl>=ZN:PRINT 

OK. 

<1B8> 

2400 GOTO 1000 


< 179> 

Listing 20 




Das Listing ist leicht zu verstehen. Wenn Sie Schwierigkei¬ 
ten haben, so vergleichen Sie es bitte mit dem Listing der 
NIMM-Routine. 


SCHAU-Routine 

Der Befehl SCHAU alleine angewandt, gibt eine Raum¬ 
beschreibung aus, beziehungsweise wiederholt eine Raum¬ 
beschreibung. 

In Verbindung mit einem Gegenstand oder einem Objekt, 
gibt er eine Beschreibung dieses Gegenstands beziehungs¬ 
weise Objekts aus. 

Bitte ergänzen Sie durch Listing 21. 


2400 REM SCHAU - ROUTINE <191> 

2405 IF VE<>13 THEN 2500 <202> 

2410 IF OB=0 AND G1=0 THEN PRINT"CCLRJ":VE 

=0:GOTO 1130 <208> 

2415 IF OB=l AND 00(I)=ZN THEN PRINT"DIE T 

RUHE IST SEHR GROSS." <092> 

2500 GOTO 1000 <023> 


Listing 21 


Auch dieses Listing ist leicht zu verstehen. 

Der Sprung GOTO 1130 in Zeile 2410 bewirkt die Neu¬ 
ausgabe der Raumbeschreibung. 

Mit Ergänzung durch diese Routinen sind wir unserem 
Ziel — dem fertigen Adventure — schon ziemlich nahe ge¬ 
kommen. 

Sie haben jetzt das Wissen, das nötig ist, um große Spiel¬ 
landschaften zu programmieren, in denen man herumlaufen 
und Gegenstände transportieren kann. 

Sie müssen jetzt noch lernen, wie man Aufgaben ins Spiel 
einbaut, die der Spieler lösen muß. 

Dies lernen Sie alles im folgenden Abschnitt — die raum¬ 
spezifische Action. Zunächst jedoch wieder ein Kontrollisting 
22 zum Vergleich mit dem, was Sie momentan bei richtiger 
Mitarbeit vorliegen haben sollten. 


0 REM ***************************** <081> 

1 REM * ADVENTURE—PROGRAMMIERKURS * <073> 

2 REM * * <229> 

3 REM * UEBUNGS-PROGRAMM * <145> 

4 REM ••••*•••****•*•*•*•••*•*•**•• <085> 

9 REM BASIC-ERWEITERUNG <120> 

10 DATA 76,24,1,177,251,145,251,200,208,24 

9,230,252,202,20B,244,96,120,160,0,169 <104> 

12 DATA 160,132,251,133,252,162,32,32,11,1 

,169,224,132,251,133,252,162,32,32,11 <025> 

14 DATA 1,169,53,133,1,88,96:F0R 1=264 TO 

310:READ X:POKE I,X:NEXT:SYS 264 <234> 

16 FOR 1=710 TO 730:READ X:POKE I,X:NEXT <213> 
18 DATA 208,3,76,29,168,32,192,2,32,19,166 

,56,165,95,233,1,164,96,76,36,168 <165> 

20 POKE 40996,197:POKE 40997,2:POKE 1,54 <087> 

22 FOR 1=43168 TO 43170:READ X:POKE I,X:NE 

XT <174> 

24 FOR 1=704 TO 709:READ X:POKE I,X:NEXT <230> 

26 DATA 32,192,2,32,138,173,76,247,183 <114> 

30 GOSUB 52000: REM TABELLEN DEFFINIEREN <209> 

100 ZN=1:GOTO 1130 <119> 

1000 REM ACTIONMODUL <185> 

1010 GOSUB 50000:REM BEFEHLSEINGABEMODUL <165> 

1100 REM GEHEN IN EIN NEUES ZIMMER <013> 

1105 IF VE<1 OR VE>10 THEN 1200 <038> 

1110 IF RI(VE)=0 THEN PRINT"KEIN WEG IN DI 


Listing 22 
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Fortsetzung Listing 22 






ESE RICHTUNG !":GOTO 1200 

<232> 

50050 

IF UD=1 THEN 50220 

<236> 

1120 

ZN=RI(VE):PRINT"CCLR>" 

<239> 

50060 

POKE 198,0:BE*="“:PRINT"WAS NUN ? ": 

<044> 

1130 

GOSUB 10000+ZN*100 

< 123> 

50070 

POKE 204,0 


1140 

RESTORE 10000+ZN*100 

< 132> 

50080 

GET X*:IF X*=""THEN 50080 

<091 > 

1150 

FOR 1=1 TO 10:READ RI(I):NEXT 

<230> 

50090 

IF PEEK(203)=1 OR LEN(BE *)>68 THEN P 


1160 

PRINT"{DOWN>M0£GLICHE RICHTUNGEN 

"; <115> 


RINT" ":POKE 204,1:GOTO 50140 

< 022 > 

1165 

IC=0:FOR 1 = 1 TO 10: IF RI (1)00 THEN P 

50100 

I=ASC(Xi):IF I<65 OR I>90 THEN IF I< 



RINT VE*(I);",";:IC=1 

< 161 > 


>32 AND 1020 AND 1034 THEN 50080 

< 173> 

1170 

NEXT I 

<097 > 

50110 

IF 1=20 AND BE*=""THEN 50080 

<093> 

1175 

IF IC=0 THEN PRINT"KEINE." 

< 178> 

50120 

IF 1=20 THEN POKE 204,1:PRINT"{LEFT, 


1180 

IF IC=1 THEN PRINT CHR*(20> 

<0B4> 


2SPACE,2LEFT >";:BE*=LEFTS(BE*,LEN(BE 


1185 

PRINT"ICH SEHE : 

<240> 


*>“1>:GOTO 50070 

< 174> 

1186 

IC=0:FOR 1=1 TO OZ:IF 00<I)=ZN THEN p 

50130 

PRINT X*;:BE*=BE*+X*:GOTO 50080 

<013> 


RINT OB* <I:IC=1 

<1B9> 

50140 

FOR 1=1 TO 10:BE*(I)="":NEXT:WZ=1:FO 


1187 

NEXT 

<041 > 


R 1=1 TO LEN(BE*) 

< 154> 

1 IBS 

FOR 1=1 TO GZ:IF GE(I)=ZN THEN PRINT 

50150 

:IF MID*(BE*,I,1)=" "THEN GOSUB 5019 



GE*(I);",";tIC=1 

<24B> 


0:GOTO 50180 

<240> 

1190 

NEXT 

<044> 

50160 

:IF WZ>10 THEN PRINT"EINGABE IST ZU 


1192 

IF IC=0 THEN PRINT"NICHTS BESONDERES. 


LANG !":I=LEN(BE*)+1:GOTO 50180 

<02B> 



< 010 > 

50170 

:BE*(WZ)=BE*(WZ)+MID*(BE*,I,1) 

<069> 

1194 

IF IC=1 THEN PRINT CHR*(20> 

<098> 

50180 

NEXT I:GOTO 50220 

<079> 

1200 

REM 

<067> 

50190 

IC=0:FOR 11=1 TO AZ:IF BE*(WZ)=AU*(I 


2000 

REM REAKTION AUF BEFEHLE (ALLGEMEINE 


1)THEN IC=1 

< 0 B 6 > 


ACTION) 

< 108> 

50200 

NEXT 11:IF IC=0 THEN WZ=WZ+1:RETURN 

<105> 

2100 

REM NIMM ROUTINE 

<034> 

50210 

BE* (WZ)=’"': RETURN 

<081 > 

2110 

IF VE<>15 THEN 2200 

< 161 > 

50220 

IF UD=1 THEN UD=0:GOTO 50240 

<215> 

2120 

IF GE(Gl)OZN THEN PRINT" ICH SEHE 

DIE 

50230 

WZ=1:VE=0:OB=0:PE=0 

< 163> 


SEN GEGENSTAND HIER NICHT !" 

<016> 

50240 

IC=0:G1=0:G2=0 

<155> 

2125 

IF GE(Gl)=—1 THEN PRINT"SIE HABEN 

DIE 

50250 

FOR 1=1 TO VZ:IF BE*(WZ)=VE*(I)THEN 



SEN GEGENSTAND BEREITS !" 

<077> 


VE=I: IC=1 

< 114> 

2130 

IF GE(Gl)=ZN THEN GE(Gl>=-l:PRINT 

■OK. 

50251 

IF LEN(BE*(WZ)><3 THEN 50260 

<229> 


** 

<253> 

50255 

IF BE*(WZ)=LEFT*(VE*(I),LEN(BE*(WZ>) 


2200 

REM INVENTUR ROUTINE 

<208> 


)THEN VE=I-VAL(RIGHT*(VE*(I),1)):IC= 


2205 

IF VE<>22 THEN 2300 

<255> 


1 

< 211 > 

2210 

PRINT"ICH HABE: 

<224> 

50260 

NEXT I:IF IC=1 THEN 50350 

< 187> 

2220 

IC=0:FOR 1=1 TO GZ:IF GE(I>=-1 THEN P 

50270 

FOR 1=1 TO GZ:IF BE*(WZ)<>GE*(I)THEN 



RINT GE*(I)",";:IC=1 

< 165> 


50300 

<211 > 

2225 

NEXT 

<059> 

50280 

IC=1:IF G1=0 THEN G1=I 

< 212 > 

2230 

IF IC=0 THEN PRINT"NICHTS." 

<050> 

50290 

G2=I:IF G2=G1 THEN G2=0 

< 020 > 

2235 

IF IC=1 THEN PRINT"{LEFT,SPACEJ" 

<222 > 

50' ra 

NEXT I:IF IC=1 THEN 50350 

<227> 

2300 

REM VERLIER ROUTINE 

< 210 > 

50310 

FOR 1=1 TO OZ:IF BE*(WZ)=DB*(I)THEN 


2305 

IF VEOIB THEN 2400 

< 106> 


OB=I:IC=1 

<147> 

2310 

IF GE (Gl >0—1 THEN PRINT" ICH HABE 

DAS 

50320 

NEXT I:IF IC=1 THEN 50350 

<247> 


NICHT 

<006> 

50330 

FOR 1=1 TO PZ:IF BE*(WZ)=PE*(I)THEN 


2320 

IF GE(Gl)=—1 THEN GE(Gl)=ZN:PRINT' 

OK. 


PE=I:IC=1 

< 176> 


" 

< 188> 

50340 

NEXT I 

<051 > 

2400 

REM SCHAU - ROUTINE 

<191 > 

50350 

IF BE*(WZ)="UND"THEN UD=1:IC=1 

<083> 

2405 

IF VE< >13 THEN 2500 

< 202 > 

50360 

IF IC=0 THEN PRINT"ICH KENNE ";BE*(W 


2410 

IF OB=0 AND G1=0 THEN PRINT"{CLR>' 

: VE 


Z);" NICHT !":RETURN 

<004> 


=0:GOTO 1130 

<208> 

50370 

WZ=WZ+1:IF WZ>10 OR BE*(WZ)=“"OR UD= 


2415 

IF 0B=1 AND 00 (1) =ZN THEN PRINT"DIE T 


1 THEN RETURN 

<177> 


RUHE IST SEHR GROSS." 

<092> 

50380 

IC=0:GOTO 50250 

< 189> 

2500 

GOTO 1000 

<023> 

52000 

REM TABELLEN 

< 161 > 

10000 

REM-SPIELKARTE- 

<048> 

52005 

RESTORE 52000 

< 115> 

10100 

REM RAUM 1 - 

<037> 

52010 

REM VERBTABELLE - 

<065> 

10102 

DATA 0,3,0,2,0,0,0,0,0,0 

< 145> 

52020 

DATA N,S,W,Q,NW,NO,SW,SO,RAUF,RUNTER 

<241 > 

10105 

PRINT"RAUM NUMMER 1" 

<183: 

52030 

DATA OEFFNE , SCHL I ESSE , SCHAUE , UNTERSU 


10120 

RETURN 

<061 > 


CHE 1 , NI MM, NEHME 1 , H0LE2 

<003> 

10200 

REM RAUM 2 - 

< 138> 

52035 

DATA VERL IERE, LEGE 1 , WIRF2, WERFE3,1NV 


10202 

DATA 0,5,1,0,0,0,0,6,0,0 

<252 > 


ENTUR 

< 126> 

10205 

PRINT"RAUM NUMMER 2" 

<028> 

52100 

VZ=22:DIM VE*(VZ):FOR 1=1 TO VZ:READ 


10220 

RETURN 

< 161 > 


VE*(I):NEXT 

< 166> 

10300 

REM RAUM 3 - 

<240> 

52200 

REM GEGENSTANDSTABELLE - 

<003> 

10302 

DATA 1,0,0,0,0,0,0,0,0,4 

<090> 

52210 

DATA SCHWERT,1 

< 189> 

10305 

PRINT"RAUM NUMMER 3" 

< 130> 

52211 

DATA SEIL,2 

<204> 

10320 

RETURN 

<006> 

52212 

DATA SCHLÜESSEL,4 

< 157> 

10400 

REM RAUM 4 - 

<0B5> 

52213 

DATA DIAMANT,5 

< 162> 

10402 

DATA 0,0,0,0,0,0,0,0,3,0 

< 188> 

52300 

GZ=4:DIM GE*(4):DIM GE(4):F0R 1=1 TO 


10405 

PRINT"RAUM NUMMER 4" 

<231 > 


GZ:READ GE*(I):READ GE(I):NEXT I 

<136> 

10420 

RETURN 

< 106> 

52400 

REM OBJEKTTABELLE - 

<088> 

10500 

REM RAUM 5- 

< 187> 

52410 

DATA TRUHE,5 

<242> 

10502 

DATA 2,0,0,0,0,0,0,0,0,0 

<032> 

52412 

DATA SCHACHT ,6 

<107> 

10505 

PR INT "RAUM NUMMER 5" 

<077> 

52414 

DATA EISENRING ,6 

<019> 

10520 

RETURN 

<207> 

52416 

DATA TUER,2 

< 173> 

10600 

REM RAUM 6 - 

<032> 

52418 

DATA TUER,5 

<178> 

10602 

DATA 0,0,0,0,2,0,0,0,0,0 

< 132> 

52500 

0Z=5:DIM OB*(OZ):DIM 00(0Z):F0R 1=1 


10605 

PRINT"RAUM NUMMER 6 " 

< 178> 


TO OZ:READ OB*(I):READ 00(I):NEXT I 

< 122 > 

10620 

RETURN 

<051 > 

53000 

RETURN 

< 101 > 

50000 

REM **************************** 

<058> 




50010 

REM * BEFEHLSEINGABE * 

<228> 

© 64'er 



50020 

REM * BEFEHLSZERLEGUNG * 

< 1 B 2 > 




50030 

REM * BEFEHLSCODIERUNG * 

< 173> 




50040 

REM **************************** 

<098> 

Listing 22 (Schluß) 
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Kurs 


Action in Räumen 


Die raumspezifische Action wird immer am Ende des 
Actionmoduls aufgerufen. Ergänzen Sie Ihr Programm nun 
bitte um Listing 23. 


Die raumspezifische Action bereitet meistens den größten 
Programmieraufwand, und bringt somit auch das größte 
Chaos in die anfangs gut strukturierten Listings Uns soll dies 
nicht passieren. 

Wo bringt man die raumspezifische Action denn am besten 
im Listing beziehungsweise im Programm unter? 

Die einfachste Lösung wäre es, die raumspezifische Action 
einfach an das Actionmodul anzuhängen. Man würde sich so 
für jeden Raum zirka 100 Zeilen reservieren (zum Beispiel 
2500 bis 2599 für Raum 1) und vor jedem Raum eine IF 
THEN-Abfrage stellen, die feststellt, ob der Raum übersprun¬ 
gen oder behandelt werden soll. Dieses Verfahren hat jedoch 
einen großen Verzögerungseffekt auf die Bearbeitungsge¬ 
schwindigkeit des Adventures zur Folge. 

Um diesem und allen anderen Problemen auszuweichen, 
schreiben wir unsere raumspezifische Action direkt auf die 
Spielkarte. Dies geht ganz einfach: 

Betrachten wir zunächst einmal erneut den Aufbau der 
Spielkarte und nehmen als Beispiel Raum 1. 

Raum 1 liegt in den Zeilen 10100 bis maximal 10199. 

Am Kopf des Raumes steht eine DATA-Zeile, die die mögli¬ 
chen Richtungen und ihre Zielorte zu diesem Raum enthält. 

Die DATA-Zeile wird mittels 

RESTORE 10000 + ZN *100 

und einer READ-Schleife gelesen. 

Danach wird die Raumbeschreibung mittels GOSUB 
10000 + ZN *100 ausgegeben. 

Die Raumbeschreibung steht dabei in PRINT-Zeilen von 
10105 bis maximal 10119. 

Was liegt nun näher, als die raumspezifische Action einfach 
in die Zeile von 10120 bis maximal 10199 zu legen? 

Das allgemeine Ablaufschema für einen einzelnen Raum 
der Spielkarte samt Action sieht nun so aus: 


Block-Schema für Raum-Nr. ZN 

10000 + ZN ' 100^1--- 

DATA-Zeile 


Raumbeschreibung (Print-Zeilen) 
10000 + ZN * 100 + 20 ^- 


Raumspezifische Actlon 


Aus diesem Schema geht hervor, daß die raumspezifische 
Action zum Raum ZN (ZN = Zimmernummer der Karte) 
mittels 

GOSUB 10000 + ZN* 100 + 20 
aufgerufen wird. 

Um die Action des Raumes 1 aufzurufen, müßte man also 
GOSUB 10000 + 1*100 + 20, 
was identisch mit 
GOSUB 10120 ist, eingeben. 


2500 REM AUFRUF DER RAUMSPEZIFISCHEN 

ACTIO 

N 

<126> 

2510 GOSUB 10000+ZN*100+20 

<240> 

2600 GOTO 1000 

< 124> 

Listing 23 



Damit ist eine übersichtliche Methode gegeben, unser 
Adventure mit jeder nur denkbaren Art von Action zu ver¬ 
sehen. Der Vorteil der vorgestellten Methode liegt haupt¬ 
sächlich darin, daß Fehler leicht beseitigt werden können, 
sofern sie im Spielverlauf auftreten. 

Angenommen, wir sind in Raum 1 und irgendetwas funktio¬ 
niert nicht, so muß man nur Zeile 10100 bis 10199 auflisten 
und kann sofort gezielt nach dem Fehler suchen. 

Auf den folgenden Seiten finden Sie nun noch einige Bei¬ 
spiele zum Einbau und zur Programmierung von raumspezifi¬ 
scher Action. 

Programmierung einer Tür 

Unser Ziel soll nun sein, eine Tür zwischen den Räumen 2 
und 5 zu programmieren. 

Bisher kann man einfach von Raum 2 mittels der Eingabe 
»S« zu Raum 5 gelangen. Die Tür wird jedoch bereits in der 
Raumbeschreibung erwähnt, da sie in der Objekttabelle ver¬ 
treten ist. 

Zu bemerken ist hier, daß jede Tür immer zweimal in der 
Objekttabelle vertreten sein muß — denn man kann eine Tür 
immer von zwei Räumen aus sehen — den Räumen, die durch 
die : Jr getrennt werden. 

Vergleichen Sie bitte auch in Ihrem Listing die Zeilen 
52416 und 52418. Der erste Schritt zur Programmierung der 
Tür besteht darin, den Verbindungsweg zwischen den bei¬ 
den Räumen, zwischen die die Tür später soll, zunächst zu 
entfernen. 

Für die Tür in unserem Beispiel (Raum 2 und 5) müssen wir 
die Richtungs-DATA-Zeilen der beiden Räume folgender¬ 
maßen ändern: 

10202 DATA 0,0,1,0,0,0,0,6,0,0 

10502 DATA 0,0,0,0,0,0,0,0,0,0 

Damit ist die Verbindung zwischen Raum 2 und Raum 5 
auch schon unterbrochen. Nun brauchen wir noch eine Varia¬ 
ble, die den Zustand der Tür bestimmt. 

Wir unterscheiden zwischen drei Zuständen: 

1. Die Tür ist offen. Der Variablenwert zur Tür sei dann 0. 

2. Die Tür ist zu und kann mittels »OEFFNE TUER« geöff¬ 
net werden. Der Variablenwert sei hierbei 1. 

3. Die Tür ist zu und kann nur mit einem Hilfsmittel (zum 
Beispiel Schlüssel) geöffnet werden. Hierbei sei die 
Variable 2. 

Unsere Türvariable soll TU(1) sein. Das Feld TU(1) bis 
TU(X) ist für die Zustände aller Dinge verantwortlich, die man 
öffnen und schließen kann. 

Unsere Tür soll zunächst ohne Schlüssel geöffnet werden 
können. Die Türvariable TU(1) hat folglich den Wert 1. 

Bitte ergänzen Sie das Listing nun um folgende Zeilen: 

52900 REM ALLGEMEINE VARIABLEN 

52910 TU(1) = 1 : REM TUER 2/5 

Jetzt müssen wir die raumspezifische Action in den Räu¬ 
men 2 und 5 zum Öffnen und Schließen der Tür programmie¬ 
ren. 

Dies geht so: 

10220 IF TU(1)=0 THEN Rl(2)=5 

10225 IF VE=11 AND OB=5 AND TU(1) = 1 
THENPRINT"OK. ":TU(1)=0: Rl(2)=5 

P: 
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10230 IF VE=12 AND OB=5 AND TU(1) = 0 
THENPRINT"OK. ":TU(1)=1: Rl(2)=0 
10250 RETURN 

Damit unser Programm jedoch einwandfrei läuft, müssen 
wir im Actionmodul selbst erst noch eine kleine Änderung 
vornehmen: Bitte fügen Sie Zeile 1130 REM und 1155 
GOSUB 10000+ZN*100 in das Programm ein. Eine Er¬ 
klärung für diese Änderung folgt gleich. Nun die Erklärung zur 
Türprogrammierung in Raum 2: 

10220 In dieser Zeile wird der Zustand der Tür über¬ 
prüft. Wird dabei festgestellt, daß die Tür offen 
ist, so gilt Rl(2)=5. Wie bereits festgelegt, ist 
Rl(2) für die Richtung SUEDEN zuständig. 
Dadurch, daß die Tür offen ist, muß Rl(2) also auf 
den Wert 5 gesetzt werden, was nichts anderes 
heißt, als daß man durch die Tür zu Raum 5 
gelangt. Der ganze Trick der Türprogrammierung 
besteht darin, daß man zunächst den Verbin¬ 
dungsweg zwischen den Räumen entfernt, und 
im Falle einer offenen Tür einfach wieder her¬ 
stellt. Diese Wiederherstellung erfolgt in dieser 
Zeile. 

Hierduch läßt sich auch begründen, warum wir 
das Actionmodul ein wenig verändern mußten: 
Wenn der Spieler einen neuen Raum betritt, 
geschieht folgendes: 

1. Der DATA-Zeiger wird mittels RESTORE 
10000+ZN *100 auf die DATA-Zeile des 
neuen Raumes gesetzt. 

2. Nun werden die Richtungsmöglichkeiten 
Rl(1) bis Rl(10) mittels READ-Befehl eingele¬ 
sen. 

3. Sodann wird mittels GOSUB 10000 
+ 100* ZN die Raumbeschreibung aufgeru¬ 
fen, bei der gegebenenfalls (Tür ist offen) 
auch der Verbindungsweg wieder hergestellt 
wird. 

Die Änderung des Actionmoduls bestand also 
lediglich in der Vertauschung der Arbeitsschritte 
2 und 3 auf die jetzige Reihenfolge. 

Nur bei der jetzigen Ordnung funktioniert das 
Programm einwandfrei. 

10225 Hier wird geprüft, ob die Befehlseingabe des 
Spielers »OEFFNE TUER« lautet. Man schaut 
dazu einfach nach, ob VE=11 und OB=5 ist. 
Außerdem wird geprüft, ob die Tür zu ist, denn 
eine offene Tür kann man logischerweise nicht 
öffnen. 

Stimmt alles, so wird TU(1) nun auf den Wert 1 
(Tür ist offen) gesetzt, und der Verbindungsweg 
zu Raum 5 hergestellt: Rl(2)=5. 

10230 Analog zu 10225, nur das die Tür hier geschlos¬ 
sen wird. 

Achtung: Sicher haben Sie sich bereits gewundert, wie die 
Abfrage, ob im Befehlssatz des Spielers die TUER vorkommt, 
erfolgt. Die Abfrage hierfür lautete einfach IF OB=5 THEN... 
Warum muß OB gleich 5 und nicht gleich 4 sein? 

Lassen Sie uns einmal einen Blick auf die Objekttabelle 


werfen: 

OB$(1)='TRUHE" 00(1)=5 

OB$(2)= "SCHACHT" 00(2)=6 

OB$(3)= "EISENRING" 00(3) = 6 

OB$(4)= TUER" 00(4)=2 

OB$(5)= TUER" 00(5)=5 


Wie Sie bereits wissen, stammt der OB-Wert aus dem 
Befehlsanalysemodul. Sie erinnern sich sicher auch noch 
daran, wie das Modul den OB-Wert erhält: 


Es durchläuft mit einer Schleife einfach die Objekttabelle: 
FOR 1=1 TO OZ : IFBE$(WZ) = OB$(l) THEN OB=l 
Somit wird klar, warum der erhaltene OB-Wert 5 und nicht 
4 ist. Wir müssen also darauf achten, daß für Objekte, die den 
gleichen Namen haben, immer der OB-Wert des Objekts aus¬ 
gegeben wird, weiches in der Tabelle zuletzt gefunden wird 
beziehungsweise, das in der Tabelle den höchsten Wert hat. 

Nun müssen wir natürlich noch den Raum 5 mit der spezifi¬ 
schen Action versehen, die auch in Raum 2 enthalten ist (was 
das Öffnen und Schließen der Tür anbelangt). 

Bitte ergänzen Sie mit Listing 24. 


10520 IF TU(1)=0 THEN RI(1)=2 


<129> 

10525 IF VE=11 

AND 0B=5 AND TU(1)=1 

THEN 

P 

RINT"OK. 

:TU <1)=0:RI(1)=2 


<050> 

10530 IF VE=12 

AND 0B=5 AND TU(1>=0 

THEN 

P 

RINT"OK. 

:TU(1)=1:RI(1)=0 


<054> 

10550 RETURN 



<237> 

Listing 24 





Die Programmierung der Tür könnte nun eigentlich als 
abgeschlossen betrachtet werden. Allerdings ist es erstre¬ 
benswert, dem Spieler die Möglichkeit zu geben, mittels 
»GEH TUER« durch die Tür zu gelangen. 

Bisher muß man nach dem Öffnen der Tür noch den Befehl 
»SCHAU« eingeben, um zu erfahren, welche weitere Rich¬ 
tung sich durch das Öffnen der Tür ergeben hat. Dazu müs¬ 
sen wir die Verbtabelle wieder um das Verb »GEH« erweitern: 

52030 DATA GEHE,BETRETEI 
und in Zeile 52100 den VZ-Wert auf 24 erhöhen. 

Nun kann die raumspezifische Action in den Räumen 2 und 
5 erweitert werden: 

10240 IFVE=23 AND OB=5 THEN VE=2 

10541 IFVE=23 AND OB=5 THEN VE=1 

Nebenbei muß auch das Actionmodul noch so ergänzt wer¬ 
den, damit diese Routinen angenommen werden: 

1110 IFRI(VE) = 0 THENPRINT"KEIN WEG IN DIESE 
RICHTUNG !": VE = 0:GÖT01200 

1130 VE=0 

2520 IFVE > 0 AND VE < 11 THEN1100 

Wenn Sie wissen möchten, warum diese Änderungen 
unbedingt notwendig sind, dann spielen Sie das Adventure 
einmal vor und einmal nach der Änderung des Actionmoduls 
durch (die Tür-Szene). 

Bisher kann die Tür noch problemlos geöffnet werden. 

Nun wollen wir das Öffnen und Schließen der Tür von einem 
Schlüssel abhängig machen — die Tür kann nur dann noch 
geöffnet werden, wenn der Spieler im Besitz des Schlüssels 
ist. 

Viele englische Adventures verlangen als Befehlssyntax 
zum Öffnen einer verschlossenen Tür mit einem Schlüssel 
etwa folgendes: 

ENTRIEGLE TUER 

OEFFNE TUER 

GEH TUER 

Im Deutschen ist es allerdings nicht besonders üblich »ent¬ 
riegle Tür« zu sagen. Wir wollen deshalb den ersten Schritt 
weglassen, und folgenden Ablauf vereinbaren: 

— Wenn der Spieler die Tür mit »OEFFNE TUER« öffnen 
will, jedoch keinen passenden Schlüssel bei sich hat, 
so erhält er die Meldung »ICH HABE KEINEN PASSEN¬ 
DEN SCHLUESSEL«. 

— Hat er einen Schlüssel bei sich und gibt als Befehl wie¬ 
der »OEFFNE TUER« ein, so erhält er die Meldung 
»OK.«. 

Es ist pure Haarspalterei, vom Spieler Eingaben wie zum 
Beispiel »OEFFNE DIE TUER MIT DEM SCHLUESSEL« 
beziehungsweise »ENTRIEGLE DIE TUER MIT DEM 
SCHLUESSEL« und dann »OEFFNE TUER« zu verlangen. 
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Wichtig ist nur die Tatsache, daß der Spieler einen Schlüssel 
gefunden haben muß, um durch die Tür zu gelangen. 

Die Routine für die Schlüsselabfrage ist ganz einfach zu 
programmieren: Wir müssen vor der Tür-öffnen-Routine ein¬ 
fach eine Abfrage einbauen, die feststellt, ob GE(3) den Wert 
—1 hat, also, ob der Schlüssel im Besitz des Spielers ist. 

Dazu sind nur zwei neue Ergänzungszeiien aus Listing 25 
notwendig. 


10224 IF VE=11 AND OB=5 AND BE <3)0-1 THEN 
PRINT"ICH HABE KEINEN SCHLUESSEL."s 
GOTO 10230 <123> 

10524 IF V£=ll AND 0B=5 AND GE (3)0-1 THEN 
PRINT“ICH HABE KEINEN SCHLUESSEL.": 

GOTO 10230 <169> 

Listing 25 


Wenn Sie Ihr Programm ergänzt haben, dann machen Sie 
gleich einmal ein Probespiel und probieren das Öffnen der 
Tür mit dem Schlüssel aus. 

Spielen Sie auch einmal die folgende Variante durch: 

1. Schlüssel holen 

2. Tür in Raum 2 öffnen. 

3. Schlüssel verlieren. 

4. In Raum 5 gehen. 

5. Tür schließen. 

Sie sind nun in Raum 5 und können diesen nicht mehr ver¬ 
lassen, da das Türschloß zugeschnappt ist, und der Schlüs¬ 
sel sich in Raum 2 befindet. Man kann den Spieler also in eine 
Falle laufen lassen. 

Interessant hierbei ist, daß kaum ein Spieler eine Tür wie¬ 
der schließt, nachdem er sie erst einmal geöffnet hat. Die Pro¬ 
grammierung dieses Effekts (die in der bisherigen Tür-Logik 
bereits enthalten ist) ist allein dadurch interessant, daß der 
Spieler überrascht wird. 

Die Truhe 

Wenn Sie sich in Raum 5 begeben, werden Sie feststellen, 
daß sich dort eine Truhe befindet. 

Transportieren kann man die Truhe nicht, da wir bereits fest¬ 
gelegt haben, daß Objekte vom Spieler nicht transportiert 
werden können (eventuell, weil sie dazu zu schwer sind). 

Lassen Sie uns zunächst noch eine Fehlermeldung in 
unser Adventure einbauen — wenn der Spieler versucht ein 
Objekt zu nehmen (Tür, etc.), so erhält er die Antwort »DAS 
GEHT UEBER MEINE KRAEFTE!«. 

Diese Fehlermeldung läßt sich ganz einfach in die NIMM- 
Routine einbauen: 

2115 IFOB< >OTHEN PRINT "DAS GEHT UEBER 
MEINE KRAEFTE !":GOTO2200 

Nun zur Truhe speziell: 

In der Truhe können selbstverständlich Gegenstände lie¬ 
gen. Für die Gegenstände haben wir bisher folgendes defi¬ 
niert: Wenn GE(X) größer als Null ist, so liegt der Gegenstand 
in diesem Raum. 

Wenn GE(X) den Wert —1 hat, so ist dieser Gegenstand im 
Besitz des Spielers. 

Nun ergänzen wir mit folgender Bedingung: 

Wenn GE(X) den Wert —2 hat, so liegt der Gegenstand in 
der Truhe. 

Wir wollen unsere Gegenstandstabelle nun so umändern, 
daß das Schwert nicht mehr wie bisher in Raum 1 liegt, son¬ 
dern sich zukünftig in der Truhe befindet, also: 

52210 DATASCHWERT—2 

Nun liegt das Schwert in der Truhe. 

Wie kommen wir im Verlauf des Spiels jedoch wieder zum 
Schwert? 

Nun ganz einfach, wir müssen die Truhe öffnen. Dazu ist es 
erforderlich, in die raumspezifische Action von Raum 5 eine 


Routine einzubauen, die das OEFFNEN der TRUHE erlaubt. 
Im Prinzip können wir die Truhe wie eine Tür betrachten, denn 
auch bei der Truhe sind drei Zustandsformen möglich (offen, 
zu, verriegelt). 

Wir benötigen also wieder eine Variable, die Auskunft über 
den jeweiligen Zustand der Truhe gibt. Diese Variable sei 
TU(2) und der Ausgangszustand der Truhe sei 1 (also Truhe 
ist zu und kann mittels OEFFNEN ohne irgendeinem Hilfsmit¬ 
tel a la Schlüssel geöffnet werden). 

Wir ergänzen: 

52920 TU(2) = 1:REM TRUHE 

Nun müssen wir die OEFFNE-Routine für Raum 5 program¬ 
mieren. Dies geht ganz einfach: 

10545 IF VE=11 AND OB=1 ANDTU(2)=1 
THENPRINT"OK. ":TU(2)=0 

Was man öffnen kann, kann man auch schließen, also: 

10546 IF VE=12 AND 0B=1 ANDTU(2)=0 
THENPRINT"OK. ":TU(2) = 1 

Sie sehen schon, daß die meisten Routinen relativ einfach 
programmiert werden können, da wir zu Beginn viel Arbeit 
und Gedanken in die Programmierung des Befehlsanalyse¬ 
moduls gesteckt haben. Diese Arbeit macht sich nun bezahlt, 
denn wir können nun jegliche Routine programmieren, und 
müssen dabei nur den Wortschatz entsprechend erweitern, 
in der Routine selbst nur VERBZAHL, OBJEKTZAHL etc. 
abfragen, und danach TUER-Variablen etc. entsprechend 
verändern. 

So schön, so gut! 

Wir können die Truhe nun öffnen und schließen, aber vom 
Schwert ist noch keine Spur zu sehen. Dazu müssen wir die 
Raumbeschreibungs-Routine erweitern. Die Gegenstände, 
die sich in der Truhe befinden, sollen künftig auch in der 
Raumbeschreibung erwähnt werden, unter der Bedingung 
einer n» öffneten Truhe. Dazu genügt wieder eine einzige 
Abfrage: 

1189 IFGE(I)=—2ANDTU(2)=0ANDZN=5THENPRINT 
GE$(I);V;:IC=1 

Diese Abfrage steht innerhalb der Schleife, in der auch 
geprüft wird, ob sich im betreffenden Raum ein Gegenstand 
befindet. 

In der Truhenabfrage muß also berücksichtigt werden, daß 
der Gegenstand nur dann in der Raumbeschreibung Vorkom¬ 
men darf, wenn der Spieler sich in Raum 5 (wo die Truhe 
steht) befindet, wenn die Truhe offen ist, und wenn in der 
Truhe Gegenstände liegen (also deren GE-Wert gleich —2 
ist). 

Wenn Sie nun in Raum 5 gehen und mittels »OEFFNE 
TRUHE« die Truhe öffnen, und danach den Befehl »SCHAU« 
eingeben, so wird das Schwert sichtbar. Wenn Sie die Truhe 
jedoch wieder schließen, so verschwindet das Schwert auch 
wieder aus der Raumbeschreibung. 

Das Schwert ist nun sichtbar. Wenn Sie jedoch versuchen, 
sich das Schwert mit »NIMM SCHWERT« anzueignen, so wer¬ 
den Sie mit der Fehlermeldung »ICH SEHE DIESEN GEGEN¬ 
STAND HIER NICHT!« enttäuscht. Unser Programm fragt 
nämlich nur, ob der Gegenstandswert des Gegenstands, den 
man nehmen will, der Zimmernummer ZN entspricht (also 
GE(G1) gleich ZN ist.). 

Wir müssen nun eine Abfrage einbauen, die es dem Spieler 
erlaubt auch Gegenstände zu nehmen, die in der Truhe lie¬ 
gen, wenn diese offen ist, und wenn wir uns in dem Raum 
befinden, in dem die Truhe steht. 

Diese Abfrage muß natürlich wieder in der raumspezifi¬ 
schen Action zu Raum 5 Vorkommen. Wir benötigen wie¬ 
derum nur eine Zeile: 

10548 IFVE=15ANDGE(G1)=—2ANDTU(2)=0THEN 
PRINT "OK. ":GE(G1)=—1 

Damit können auch Gegenstände aus der Truhe herausge¬ 
nommen werden. 
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Allerdings erfolgt immer noch die Fehlermeldung »ICH 
SEHE...*. 

Um diesen Fehler zu beseitigen, stellen wir der Zeile, in der 
diese Fehlermeldung produziert wird, folgende Zeile voran: 

2119 IFGE(G1)=—2ANDZN=5ANDTU(2)=0 

THEN2125 

Damit ist das Problem auch schon gelöst. 

Wir sind jedoch noch nicht am Ende der Truhen-Pro- 
grammierung angelangt. Aus einer Truhe, aus der man etwas 
herausnehmen kann, muß man auch etwas hineinlegen kön¬ 
nen. 

Gerade solche Kleinigkeiten sind es letztendlich, die ein 
gutes Adventure ausmachen. 

Um das »LEGEN« von Gegenständen in die Truhe möglich 
zu machen, müssen wir eine VERLIER-Routine erstellen, die 
auf Objekte bezogen ist. 

Gemäß unserer Worttabelle besteht die VERLIER-Wort- 
familie aus folgenden Mitgliedern: VERLIERE, LEGE, WIRF, 
WERFE. 

Wir nehmen nun einmal an, der Spieler steht in Raum 5 und 
hat die Truhe bereits geöffnet. Wenn er den Befehl 
»VERLIER« und Gegenstand eingibt, so nimmt dieser Gegen¬ 
stand den Wert ZN an (GE(G1)=ZN) und liegt nun in Raum 5. 

Wir müssen nun eine Routine programmieren, die dem 
Gegenstand bei einer Eingabe wie »LEGE (GEGENSTAND) 
IN TRUHE« den Wert —2 verpaßt. 

Dies bringen wir wieder in der raumspezifischen Action zu 
Raum 5 unter: 

10550 IFVE=18ANDOB=1ANDTU(2)=OANDGE(G1) 

=—1THENPRINT "OK. ":GE(G1)=—2 

10590 RETURN 

Zusätzlich muß noch eine Abfrage in die Verlier-Routine 
eingebaut werden, die dafür sorgt, daß die normale Verlier- 
Routine übersprungen wird, wenn der VEP.LIER-Befehl sich 
auf ein Objekt wie die Truhe bezieht: 

2301 IF0BO0THEN2400 

Wenn der Spieler die Kiste beziehungsweise die Truhe 
untersucht, so erfährt er, daß sie sehr groß ist. 

Der Spieler kommt nun vielleicht auf die Idee, in die Truhe 
zu gehen. Auch dies wollen wir ihm ermöglichen. 

Dazu müssen wir die Truhe zunächst als Raum programmie¬ 
ren. Wir nehmen dazu Raum 7 — also ab Zeile 10700: 

10700 REM IN DER TRUHE- 

10702 DATA 0,0,0,0,0,0,0,0,0,0 

10705 PRINT "IN DER TRUHE.'' 

10720 RETURN 

Um in die Truhe zu gelangen, muß der Spieler in Raum 5 
den Befehl »GEH TRUHE« eingeben, aber erst, nachdem er 
die Truhe geöffnet hat. 

Dazu ergänzen wir die raumspezifische Action in Raum 5: 

10560 IFVE=23ANDOB=1ANDTU(2)=OTHENRI(1)= 
7:VE=1 

Wie Sie aus dieser Zeile ersehen können, besteht der Trick 
des GEH-Befehls also einfach darin, in die Richtung Rl(1) den 
Wert des Zielraums zu schreiben (für die Truhe also 7), und 
danach die Verbzahl VE auf den Wert 1 zu setzen, wodurch 
das GEHEN bewirkt wird. 

Einmal in der Truhe, werden Sie enttäuscht feststellen, daß 
Sie das Schwert überhaupt nicht sehen können. Wenn Sie in 
der Truhe einen Gegenstand verlieren, so läßt sich dieser nur 
dann wieder nehmen, wenn Sie dazu in die Truhe gehen. 

Dies liegt daran, daß wir zuvor bestimmt haben, daß jeder 
Gegenstand, der sich in der Truhe befindet, den Wert —2 
bekommt. Da die Truhe nun aber selbst zu einem Raum 
geworden ist, müssen alle Gegenstände, die sich in ihr befin¬ 
den den Wert 7 haben, da 7 der Raumwert der Truhe ist. 

Wenn Sie den Fehler also beheben wollen, so müssen Sie 
lediglich alle —2-Werte in den Wert 7 umwandeln. 

Damit die Truhe auch wieder verlassen werden kann, müs¬ 


sen wir die raumspezifische Action der Truhe programmieren: 

Der Wortschatz wird zunächst um das Verb VERLASSE 
erweitert: 

52045 DATA VERLASSE 

52100 VZ=25.(VZ-Wert anpassen!) 

Nun die Action zum Verlassen der Truhe in Raum 7: 

10720 IFVE=25ANDOB=1ANDTU(2)=OTHENRI(1) = 
5:VE=1 

Diese Abfrage ist lediglich die Umkehrung zur Abfrage in 
der die Truhe betreten wird. Sonderbar ist jedoch, daß auch 
abgefragt wird, ob die Truhe offen ist, wenn man sie verlassen 
will. 

Schließlich läßt sich die Truhe doch nur dann betreten, 
wenn man sie geöffnet hat, und wenn man erst einmal in der 
Truhe ist, dann kann man sie von dort aus doch nicht schlie¬ 
ßen! Wozu also die Abfrage, ob die Truhe auch offen ist? Wer 
sollte sie denn schließen? 

Damit kommen wir auch schon zum nächsten Abschnitt 
des Kurses: 


Ein Gespenst geht um ... 


Wie ich bereits zu Beginn des Kurses erwähnt habe, sind 
Adventures mit Nichtspielercharakteren — Spielfiguren, die 
vom Programm selbst gesteuert werden — besonders reiz¬ 
voll. 

Da die Programmierung solcher Spielfiguren oft für sehr 
schwer gehalten wird, treten nur in sehr wenigen Spielen sol¬ 
che Figuren auf. 

Ein Meisterbeispiel für solche Adventures ist »Hobbit«. Tat¬ 
sächlich ist es jedoch relativ einfach, Nichtspielercharaktere 
zu Drogrammieren. 

Ge. erste Problem besteht darin, einen Weg zu finden, wie 
der Nichtspielercharakter (in unserem Falle das Gespenst) in 
der Spielkarte umherlaufen kann. Eine Möglichkeit wäre es, 
das Gespenst per Random (zufallsgesteuert) von Raum zu 
Raum irren zu lassen. Diese Lösung erweist sich auf die 
Dauer jedoch als zu primitiv, da die Gefahr groß ist, daß das 
Gespenst sich in einer Sackgasse verfängt und dort sehr 
lange umherirrt. Dadurch trifft der Spieler nur äußerst selten 
auf das Gespenst, was nicht der Fall sein soll. Das Gespenst 
soll dem Spieler oft in die Quere geraten. 

Eine weitere, primitive Lösung wäre es, das Gespenst erst 
gar nicht herumlaufen zu lassen, sondern es einfach per 
Zufall gesteuert plötzlich im Raum des Spielers auftauchen zu 
lassen. 

Folgende Lösung hat sich in meinen Adventures bisher 
bestens bewährt: Zunächst wird das Gespenst einmal in die 
Personentabelle aufgenommen: 

52600 REM PERSONENTABELLE- 

52610 DATA GESPENST 

52700 PZ=1:DIMPE$(PZ):FORI = 1TOPZ:READPE$(l): 

NEXT 

Als nächster Schritt wird eine genaue Route festgelegt, die 
das Gespenst später ablaufen soll. 

Für unser Adventure eignet sich die folgende Route: 

1—3—4—3—1—2—5—2—6—2—1 

Diese Zahlen beziehen sich selbstverständlich auf die ein¬ 
zelnen Räume. Das Gespenst beginnt also in Raum 1, geht 
dann nach Raum 3 etc. 

Wichtig ist dabei nur, daß der letzte Raum der Kette wieder 
dem ersten Raum entspricht, denn wir wollen es auch unse¬ 
rem Gespenst nicht erlauben, durch Wände von Raum zu 
Raum zu gelangen. 

Das Gespenst läuft also immer wieder die gleiche Route ab. 
Dies hört sich zwar primitiv an, aber ich kann Ihnen versi¬ 
chern, daß dem Spieler kaum auffallen wird, daß das 
Gespenst sich immer nach dem gleichen Schema fortbe- 
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wegt. Nun gut, bei unserem Mini-Adventure ist es vielleicht 
nicht sehr schwer, die Taktik des Gespenstes zu durch¬ 
schauen, aber bei Spielen mit 100 und mehr Räumen, was 
natürlich mit längeren Routen verbunden ist, besteht kaum 
eine Chance, die Route eines Nichtspielercharakters heraus¬ 
zufinden — vorausgesetzt, man hat sie nicht selbst program¬ 
miert. 


sich gleichzeitig in der Truhe befindet, so schließt das Ge¬ 
spenst die Truhe, und der Spieler ist gefangen. 

Auf den letzten Seiten sollten Sie anhand der Beispiele 
gelernt haben, wie man ein Adventure mit Action versieht. 
Im Prinzip besteht jede Actionhandlung nur aus einfachen 
IF-THEN-Abfragen und einem anschließenden Spiel und Ver¬ 
ändern von verschiedenen Variablen. 


Ein weiterer Vorteil der Routenprogrammierung liegt darin, 
daß man die Gebiete der einzelnen Figuren gut begrenzen 
kann. Die Route wird nun durch das Feld PE( 1) bis PE(11) fest¬ 
gelegt. 

52920 DATAI.3,4,3,1,2,5,2,6,2,1 
52935 DIMPE(11):F0RI = 1T011:READPE(I): 
NEST:MO=1 

Die Steuerung des Gespenstes soll innerhalb des Action¬ 
moduls ab Zeile 3000 beginnen: 

3000 REM STEUERUNG DES GESPENSTES 

3001 PRINT "GESPENST= * ;PE(MO) 

3010 IFMO=OTHENRETURN 

3020 MO=MO+1:IFMO=12THENMO=1 
3025 IFPE(MO) < > ZNTHEN3100 
3100 RETURN 

Aufgerufen wird dieses Unterprogramm noch vor dem Auf¬ 
ruf der raumspezifischen Action in Zeile 2505: 

2505 GOSUB 3000 : REM GESPENST 
Zeile 3001 dient lediglich zum Verfolgen des Gespenstes. 
Sie kann später nach Belieben wieder entfernt werden. 

Die Variable MO läuft von 1 bis 11 durch und beginnt dann 
wieder von vorne: PE(MO) ist somit der Raum, in dem sich 
das Gespenst , gerade befindet. Ist M0=0, dann ist das 
Gespenst abgeschaltet (durch Zeile 3010). 

Nach jedem Spielzug des Spielers wird die Variable MO um 
1 erhöht — das Gespenst bewegt sich. 

Damit der Spieler auch bemerkt, wenn das Gespenst den 
Raum betritt, müssen wir noch folgende Zeile einfügen: 

3030 PRINT" EIN RIESIGES GESPENST ERSCHEINT !" 
Bisher ist unser Gespenst ja noch ziemlich harmlos. Wir wol¬ 
len ihm deshalb folgende Aufgabe stellen: 

Wenn das Gespenst einen Raum betritt, in dem ein Gegen¬ 
stand liegt, so soll es diesen mitnehmen. Es darf jedoch 
immer nur einen Gegenstand transportieren, kann allerdings 
den Gegenstand auch jederzeit gegen einen anderen aus- 
tauschen. Geben Sie zunächst folgende Ergänzung ein — die 
Erklärung dazu folgt anschließend: 

3100 IC=0:FORI=1TOGZ:IFGE(I)= 

PE(MO)THENIC=l 
3105 NEXT 
3110 IFIC=0THEM3150 
3120 GE(GF) = PE(MO):GF=IC:GE(IC)=0 
3150 RETURN 

Auch diese Routine läßt sich leicht erklären. 

Zunächst wird eine Schleife durchlaufen, in der geprüft 
wird, ob sich in dem Raum, in welchem sich das Gespenst 
gerade befindet, auch ein Gegenstand liegt. Trifft dies zu, so 
legt das Gespenst den Gegenstand, den es momentan bei 
sich trägt ab (GE(GF)=PE(MO)), und nimmt den neuen 
Gegenstand mit (GF=IC). Der Gegenstand, der im Besitz 
des Gespenstes ist, muß immer auf Null gesetzt werden 
(GE(IC)=0). Die Variable GF dient lediglich als Zwischen¬ 
speicher für die genommenen Gegenstände. 

Das Gespenst kann nun also Gegenstände transportieren. 
Nun wollen wir noch einen weiteren Effekt einbauen: 

3150 IFPE(MO)=5ANDZN=7ANDTU(2)=OTHEN 
TU(2)=1:PRINT "JEMAND SCHLIESST DIE 
TRUHE" 

3160 RETURN 

Wenn das Gespenst nun Raum 5 betritt und der Spieler 


Sie sollten nun in der Lage sein, jede beliebige Actionszene 
zu programmieren. Es sollten hier nur die Prinzipien an einem 
einfachen Beispiel gezeigt werden. Welcher Art die Nicht¬ 
spielcharakter sind, ihre Route und Fähigkeiten, liegt im 
Ermessen des jeweiligen Programmierers. 

Als abschließende Übung zur Überprüfung Ihres Lerner¬ 
folgs empfehle ich diese Variante: 

In Raum 6 befindet sich ein Schacht und ein Eisenring im 
Boden. 

Programmieren Sie nun folgendes: 

Durch den Schacht gelangt man zu Raum 8. Dazu muß man 
das Seil am Eisenring befestigen und anschließend hinab¬ 
klettern. Wenn Sie dieses Problem gelöst haben, können Sie 
sich durchaus daran machen, eigene Probleme zu stellen, 


0 REM ***************************** <081> 

1 REM * ADVENTURE—PROGRAMMIERKURS * <073> 

2 REM * * <229> 

3 REM * UEBUNGS-PROGRAMM * <145> 

4 REM ***************************** <085> 


9 REM BASIC—ERWEITERUNG <120> 

10 DATA 76,24,1,177,251,145,251,200,208,24 

9,230,252,202,208,244,96,120,160,0,169 <104> 

12 DATA 160,132,251,133,252,162,32,32,11,1 

,169,224,132,251,133,252,162,32,32,11 <025> 

14 DATA 1,169,53,133,1,88,96:F0R 1=264 TO 

310:READ X:POK£ I,X:NEXT:SYS 264 <234> 

16 FOR 1=710 TO 730:READ X:POKE I,X:NEXT <213> 

18 tr A 208,3,76,29,168,32,192,2,32,19,166 

,56,165,95,233,1,164,96,76,36,168 <165> 

20 POKE 40996,197:POKE 40997,2:POKE 1,54 <087> 

22 FOR 1=43168 TO 43170:READ X:POKE I,X:NE 

XT <174> 

24 FOR 1=704 TO 709:READ X:POKE I,X:NEXT <230> 

26 DATA 32,192,2,32,138,173,76,247,183 <114> 

30 GOSUB 52000: REM TABELLEN DEFFINIEREN <209> 

100 ZN=1:GOTO 1130 <119> 

1000 REM ACTIONMODUL <185> 

1010 GOSUB 50000: REM BEFEHLSEINGABE <036> 

1100 REM GEHEN IN EIN NEUES ZIMMER <013> 

1105 IF VE<1 OR VE>10 THEN 1200 <038> 

1110 IF RI(VE)=0 THEN PRINT“KEIN WEG IN DI 

ESE RICHTUNG ! ••: VE=0: GOTO 1200 <159> 

1120 ZN=RI(VE):PRINT"<CLR>“ <239> 

f130 VE=0 <235> 

1140 RESTDRE 10000+ZN*100 <132> 

1150 FOR 1=1 TO 10:READ RI(I):NEXT <230> 

1155 GOSUB 10000+ZN«100 <148> 

1160 PRINT"CDOWNIM0E6LICHE RICHTUNGEN : "; <115> 
1165 IC=0:FOR 1=1 TO 10: IF RI (1)00 THEN P 

RINT VE*(I)IC=1 <161> 

1170 NEXT I <097> 

1175 IF IC=0 THEN PRINT"KEINE.“ <17B> 

1180 IF IC=1 THEN PRINT CHR*(20> <084> 

1185 PRINT"ICH SEHE : "j <240> 

1186 IC=0:FOR 1=1 TO OZ:IF 00(I)=ZN THEN P 

RINT OB*(I);",:IC=1 <189> 

1187 NEXT <041> 

1188 FOR 1=1 TO GZ:IF GE(I)=ZN THEN PRINT 

BE*(I);","|:IC=1 <248> 

1189 IF GE(I)=—2 AND TU(2)=0 AND ZN=5 THEN 

PRINT GE*(I);","j:IC=l <253> 

1190 NEXT <044> 

1192 IF IC=0 THEN PRINT"NICHTS BESONDERES. 

" < 010 > 

1194 IF IC=1 THEN PRINT CHR*(20) <098> 

1200 REM <067> 

2000 REM REAKTION AUF BEFEHLE (ALLGEMEINE 

ACTION) <108> 

2100 REM NIMM ROUTINE <034> 

2110 IF VE<>15 THEN 2200 <161> 


Listing 26 
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2115 

IF 0B<>0 THEN PRINT"DAS GEHT UEBER ME 


10524 

IF VE=11 AND 0B=5 AND GE(3)0-1 THEN 



INE KRAEFTE !":GOTO 2200 


<010> 


PRINT"ICH HABE KEINEN SCHLUESSEL.“: 


2119 

IF GE(Gl)=—2 AND ZN=5 AND TU(2>=0 

THE 



GOTO 10230 

< 169> 


N 2125 


<042> 

10525 

IF VE=11 AND 0B=5 AND TU(1)=1 THEN P 


2120 

IF GE(Gl)< >ZN THEN PRINT"ICH SEHE 

DIE 



RINT"OK.":TU(1>=0:RI(1)=2 

<050> 


SEN GEGENSTAND HIER NICHT !" 


<016> 

10530 

IF VE=12 AND 0B=5 AND TU(1)=0 THEN P 


2125 

IF GE(Gl> =—1 THEN PRINT"SIE HABEN 

DIE 



RINT"OK.":TU(1>=1:RI(1)=0 

<054> 


SEN GEGENSTAND BEREITS •“ 


<077> 

10540 

IF VE=23 AND 0B=5 THEN VE=1 

<222> 

2130 

IF GE(Gl)=ZN THEN GE(Gl)=-l:PRINT 

OK. 

<253> 

10545 

IF VE=11 AND 0B=1 AND TU(2>=1 THEN P 
RINT"OK.“:TU(2)=0 

<009> 

2200 

REM INVENTUR ROUTINE 


< 208 > 

10546 

IF VE=12 AND 0B=1 AND TU(2)=0 THEN P 


2205 

IF VE<>22 THEN 2300 


<255> 


RINT"OK.":TU(2)=1 

<0U> 

2210 

PRINT"ICH HABE: ": 


<224> 

10548 

IF VE=15 AND GE(Gl)=-2 AND TU(2)=0 T 


2220 

IC=0:FOR 1=1 TO GZ:IF GE(I)=-1 THEN P 



HEN PRINT"OK.":GE(Gl)=—1 

<084> 


RINT GE*(I)",";:IC=1 


< 165> 

10550 

IF VE=1B AND 0B=1 AND TU(2>=0 AND GE 


2225 

NEXT 


<059> 


(Gl)=—1 THEN PRINT"OK.":GE(Gl> =—2 

< 124> 

2230 

IF IC=0 THEN PRINT"NICHTS." 


<050> 

10560 

IF VE=23 AND 0B=1 AND TU(2)=0 THEN R 


2235 

IF IC=1 THEN PRINT"CLEFT,SPACE>" 


<222> 


I(1)=7:VE=1 

<235> 

2300 

REM VERLIER ROUTINE 


<210> 

10590 

RETURN 

<021 > 

2301 

IF 0B< >0 THEN 2400 


<034> 

10600 

REM RAUM 6 - 

<032> 

2305 

IF VEOIS THEN 2400 


< 106> 

10602 

DATA 0,0,0,0,2,0,0,0,0,0 

<132> 

2310 

IF GE(Gl)0-1 THEN PRINT"ICH HABE 

DAS 


10605 

PRINT"RAUM NUMMER 6" 

< 178> 


NICHT !" 


<006> 

10620 

RETURN 

<051 > 

2320 

IF GE(Gl> =—1 THEN GE(Gl>=ZN:PRINT 

OK. 


10700 

REM IN DER TRUHE - 

<185> 


" 


<18B> 

10702 

DATA 0,0,0,0,0,0,0,0,0,0 

<230> 

2400 

REM SCHAU - ROUTINE 


< 191 > 

10705 

PRINT"IN DER TRUHE." 

<255> 

2405 

IF VE<>13 THEN 2500 


<202> 

10720 

IF VE=25 AND 0B=1 AND TU(2>=0 THEN R 


2410 

IF OB=0 AND G1=0 THEN PRINT"CCLRJ 

: VE 



I(1)=5:VE=1 

< 139> 


=0:GOTO 1130 


<20B> 

10730 

RETURN 

< 161 > 

2415 

IF 0B=1 AND 00(1>=ZN THEN PRINT"DIE T 


50000 

REM **************************** 

<058> 


RUHE IST SEHR GROSS." 


<092> 

50010 

REM * BEFEHLSEINGABE * 

<228> 

2500 

REM AUFRUF DER RAUMSPEZIFISCHEN ACTIO 


50020 

REM * BEFEHLSZERLEGUNG * 

< 182> 


N 


<126> 

50030 

REM * BEFEHLSCODIERUNG * 

< 173> 

2505 

GDSUB 3000 : REM GESPENST 


<0B4> 

50040 

REM **************************** 

<098> 

2510 

GOSUB 10000+ZN* 100+20 


<240> 

50050 

IF UD=1 THEN 50220 

<236> 

2520 

IF VE>0 AND VE<11 THEN 1100 


< 176> 

50060 

POKE 198,0:BE*="":PRINT”WAS NUN ? 

<044> 

2600 

GOTO 1000 


<124> 

50070 

POKE 204,0 

<226> 

3000 

REM STEUERUNG DES GESPENSTES 


<241 > 

50080 

GET X*:IF X*=""THEN 50080 

<091 > 

3010 

IF MO=0 THEN RETURN 


<011> 

50090 

IF PEEK(203)=1 OR LEN(BE*)>68 THEN P 


3020 

M0=M0+1: IF M0=12 THEN M0=1 


<056> 


RINT" ":POKE 204,1:GOTO 50140 

<022> 

3025 

IF PE(MO)<>ZN THEN 3100 


<096> 

5010« 1 =ASC(X*):IF I<65 OR I>90 THEN IF I< 


3030 

PRINT"EIN RIESSIGES GESPENST ERSCHEIN 



>32 AND 1020 AND 1034 THEN 50080 

<173> 


T ! ” 


< 119> 

50110 

IF 1=20 AND BE*=""THEN 50080 

<093> 

3100 IC=0:FQR 1=1 TD GZ:IF GE<I)=PE(MD)THE 

50120 

IF 1=20 THEN POKE 204,1:PRINT"CLEFT, 



N IC=I 


<015> 


2SPACE,2LEFT J";:BE*=LEFT*(BE*,LEN(BE 


3105 

NEXT 


<175> 


*)—1):GOTO 50070 

< 174> 

3110 

IF IC=0 THEN 3150 


< 155> 

50130 

PRINT X*;:BE*=BE*+X*:GOTO 50080 

<013> 

3120 

GE(GF> =PE(MO):GF=IC:GE(IC)=0 


<100> 

50140 

FOR 1=1 TO 10:BE* <I)=““:NEXT:WZ=1:FO 


3150 

IF PE(MO)=5 AND ZN=7 AND TU(2)=0 THEN 



R 1=1 TO LEN (BE* > 

<154> 


TU(2)=1:PRINT"JEMAND SCHLIESST DIE T 


50150 

:IF MID*(BE*,1,1)=" "THEN GOSUB 5019 



RUHE !" 


<244> 


0:GOTO 50180 

<240> 

3160 

RETURN 


<242> 

50160 

:IF WZ>10 THEN PRINT"EINGABE IST ZU 


10000 REM-SPIELKARTE- 


<04B> 


LANG !":I=LEN(BE*)+1:GOTO 50180 

<028> 

10100 REM RAUM 1 - 


<037> 

50170 

:BE*(WZ > =BE*(WZ)+MID*(BE*,1,1) 

<069 > 

10102 DATA 0,3,0,2,0,0,0,0,0,0 


<145> 

50180 

NEXT I:GOTO 50220 

<079> 

10105 PR INT "RAUM NUMMER 1" 


<1B3> 

50190 

IC=0:FOR 11=1 TO AZ:IF BE*(WZ)=AU*(I 


10120 RETURN 


<061 > 


1)THEN IC=1 

<086> 

10200 REM RAUM 2 - 


< 13B> 

50200 

NEXT 11:IF IC=0 THEN WZ=WZ+1:RETURN 

< 105> 

10202 DATA 0,0,1,0,0,0,0,6,0,0 


<247> 

50210 

BE*(WZ)="":RETURN 

<081 > 

10205 PRINT"RAUM NUMMER 2" 


<02B> 

50220 

IF UD=1 THEN UD=0:GOTO 50240 

<215> 

10220 IF TU(1)=0 THEN RI(2)=5 


<087> 

50230 

WZ=1:VE=0:OB=0:PE=0 

< 163> 

10224 IF VE=11 AND 0B=5 AND GE(3)0-1 THEN 


50240 

IC=0:G1=0:G2=0 

<155> 


PRINT"ICH HABE KEINEN SCHLUESSEL.": 


50250 

FOR 1=1 TO VZ:IF BE*(WZ)=VE*(I>THEN 



GOTO 10230 


< 123> 


VE=I:IC=1 

< 114> 

10225 IF VE=11 AND 0B=5 AND TU(1)=1 THEN P 


50251 

IF LEN(BE*(WZ))<3 THEN 50260 

<229> 


RINT"OK.":TU(1> =0:RI(2)=5 


<00B> 

50255 

IF BE*(WZ)=LEFT*(VE*(I),LEN(BE*(WZ)) 


10230 IF VE=12 AND 0B=5 AND TU(1>=0 THEN P 



)THEN VE=I—VAL(RIGHT*(VE*(I),1)):IC= 



RINT"OK.":TU(1)=1:RI(2)=0 


<009 > 


1 

<211 > 

10240 IF VE=23 AND 0B=5 THEN VE=2 


<17B> 

50260 

NEXT I:IF IC=1 THEN 50350 

< 1B7> 

10250 RETURN 


< 192> 

50270 

FOR 1=1 TO GZ:IF BE*(WZ><>GE*(I>THEN 


10300 REM RAUM 3 - 


<240> 


50300 

<211> 

10302 DATA 1,0,0,0,0,0,0,0,0,4 


<090> 

50280 

IC=1:IF G1=0 THEN G1=I 

<212> 

10305 PRINT"RAUM NUMMER 3" 


<130> 

50290 

G2=I:IF G2=G1 THEN G2=0 

<020> 

10320 RETURN 


<006> 

50300 

NEXT I:IF IC=1 THEN 50350 

<227> 

10400 REM RAUM 4 - 


<085> 

50310 

FOR 1=1 TO OZ:IF BE*(WZ)=0B*(I)THEN 


10402 DATA 0,0,0,0,0,0,0,0,3,0 


< 188> 


QB=I:IC=1 

< 147> 

10405 PRINT"RAUM NUMMER 4" 


<231 > 

50320 

NEXT I:IF IC=1 THEN 50350 

<247> 

10420 RETURN 


<106> 

50330 

FOR 1 = 1 TO PZ: IF BE* (WZ) =PE* (I) THEN 


10500 REM RAUM 5 - 


< 187> 


PE=I:IC=1 

< 176> 

10502 DATA 0,0,0,0,0,0,0,0,0,0 


<030> 

50340 

NEXT I 

<051 > 

10505 PRINT"RAUM NUMMER 5" 


<077> 

50350 

IF BE*(WZ)="UND"THEN UD=1:IC=1 

<083> 

10520 IF TU(1)=0 THEN RI(1)=2 


<129> 

50360 

IF IC=0 THEN PRINT"ICH KENNE ";BE*(W 







Z);" NICHT !":RETURN 

<004> 





50370 

WZ=WZ+1:IF WZ>10 OR BE*(WZ)=""OR UD= 


Listing 26 (Fortsetzung) 




1 THEN RETURN 

< 177> 


aüöi? 51 













Kurs 


50380 

IC=0:GOTO 50250 

< 189> 

52000 

REM TABELLEN 

< 161 > 

52005 

RESTORE 52000 

< 115> 

52010 

REM VERBTABELLE - 

<065> 

52020 

DATA N, S, W, 0, NW, NO, SW, SO, RAUF , RUNTER 

<241 > 

52030 

DATA OEFFNE, SCHL I ESSE , SCHAUE , UNTERSU 



CHE1,NIMM,NEHMEI,H0LE2 

<003> 

52035 

DATA VERLIERE,LEGEI,WIRF2,WERFE3,INV 



ENTUR 

< 126> 

52040 

DATA GEHE,BETRETEI 

<023> 

52045 

DATA VERLASSE 

<000> 

52100 

VZ=25: DIM VE*(VZ):FOR 1 = 1 TD VZjREAT) 



VE#(I):NEXT 

< 169> 

52200 

REM GEGENSTANDSTABELLE - 

<003> 

52210 

DATA SCHWERT,-2 

<235> 

52211 

DATA SEIL,2 

<204> 

52212 

DATA SCHLUESSEL,4 

< 157> 

52213 

DATA DIAMANT,5 

< 162> 

52300 

GZ=4:DIM GE*<4):DIM GE(4):FDR 1=1 TO 



GZ:READ GE#(I>:READ GE(I>:NEXT I 

< 136> 

52400 

REM OBJEKTTABELLE - 

<088> 

52410 

DATA TRUHE,5 

<242> 

52412 

DATA SCHACHT,6 

< 107> 

52414 

DATA EISENRING,6 

<019> 

52416 

DATA TUER,2 

< 173> 

52418 

DATA TUER,5 

< 178> 

52500 

0Z=5:DIM OB#(OZ) : DIM 00<0Z):F0R 1=1 



TO OZ:READ OB#<I):READ 00(1):NEXT I 

< 122> 

52600 

REM PERSONENTABELLE - 

< 11 4 > 

52610 

DATA GESPENST 

<059> 

52700 

PZ=1:DIM PE#(PZ):FOR 1=1 TO PZ:READ 



PE#(I):NEXT 

< 175> 

52900 

REM ALLGEMEINE TABELLEN 

<027> 

52910 

TU(1)=1:REM TUER 2/5 

<041 > 

52920 

TU(2)=1:REM TRUHE 

<230> 

52930 

DATA 1,3,4,3,1,2,5,2,6,2,1 

<249> 

52935 

DIM PE(11):FOR 1=1 TO 11:READ PE(I): 



NEXT:MO=l 

< 181 > 

53000 

RETURN 

<101> 

Listing 26 (Schluß) 



und diese dann in Programmroutinen umzusetzen. Hier noch 
abschließend Listing 26, das Sie vorliegen haben sollten, 
wenn Sie bisher richtig mitgearbeitet haben. 


Noch ein Tip zum Schluß 


Versuchen Sie die Wahl der Bildschirmfarben so zu treffen, 
daß sie auch angenehm gelesen werden können. 

Es empfiehlt sich in jedem Fall für Hintergrund und Rahmen 
die Farbe Schwarz zu wählen. Als Schriftfarbe wäre dann 
Hellgrau, Weiß oder Grün geeignet. Viele Adventures, wie 
man sie von Zeitschriften her kennt, sind in einer unange¬ 
nehmen Farbkombination gehalten (zum Beispiel schwarze 
Schrift auf braunem Hintergrund etc). 

Wie störend eine grelle Farbgebung für den Spieler sein 
kann, erfahren Sie spätestens dann, wenn auch Ihnen die 
Augen tränen — entscheiden Sie sich deshalb gründlich, 
bevor Sie eine endgültige Auswahl der Farben treffen. Dies 
sind zwar nur Kleinigkeiten, aber gerade diese Kleinigkeiten 
werden oft vom Programmierer übersehen. Dies führt nicht 
zuletzt auch zu einer Qualitätsminderung des Spiels. Bisher 
haben wir außerdem kaum von Grafik in Adventures gespro¬ 
chen. Für Datasettenanwender bietet sich lediglich die nor¬ 
male Zeichengrafik an, da hochauflösende Grafik zuviel Spei¬ 
cherplatz benötigt und auch nur schwer mittels Datasette zu 
bearbeiten ist. 

Die Grafik sollte immer das letzte sein, woran Sie arbeiten 
— sie soll also erst dann eingebaut werden, wenn das 
eigentliche Adventure schon komplett ist. Es empfiehlt sich, 
für die Grafiken eine Größe von zirka 10 mal 20 Zeichen zu 
wählen, da ganze Bildschirmseiten wiederum zuviel Spei¬ 


cherplatz kosten. Das folgende Programm stellt einen 
Maskengenerator dar, der es Ihnen ermöglicht, Bilder einfach 
zu erstellen. 

Nachdem der Maskengenerator geladen ist, wird das Bild 
mittels Cursortasten auf den Bildschirm »gemalt«. Ist das Bild 
fertig, so wird es an jeder Ecke mit einem Klammeraffen- 
Zeichen versehen. Die vier Klammeraffen müssen ein Recht¬ 
eck bilden, beziehungsweise die Eckpunkte eines Recht¬ 
ecks begrenzen, in dem das Bild steht. 

Sodann wird der Maskengenerator mittels RUN 60000 ge¬ 
startet. Von der Größe des Bildes hängt die Bearbeitungszeit 
ab. Nach einer Weile, erscheint das Bild in Form von PRINT- 
Zeilen auf dem Bildschirm. Sie müssen nun nur noch die 
RETURN-Taste mehrmals drücken, um die PRINT-Zeilen zu 
übernehmen. Das Programm errechnet alle Steuerzeichen 
und Farben automatisch und setzt sie in PRINT-Zeilen um. 

Das eigentlich mühselige Erstellen von Blockgrafiken wird 
so mit Listing 27 zum Kinderspiel. 


60000 

REM ***************************** 

< 155 > 

60001 

REM GRAFIK-DESIGNER 

<012> 

60002 

REM ***************************** 

< 157> 

60003 

DATA"(WHITE}","(RED} " , "(CYAN >","(PUR 
PLE>","(GREEN}","(BLUE >","(YELLOW}", 

"(ORANGE >","(BROWN}“,"(LIG.RED >“,“(G 
REY 1}","(GREY 2>","(LIG.GREEN}","(L 



IG.BLUE}","(GREY 3}" 

<020> 

60004 

DIM Z#(25>:1=1024:DIM Y*(15):F0R 14= 



1 TO 15:READ Y#(I4):NEXT 14 

<100> 

60005 

IF PEEK(1)=0 THEN A=I+1:G0T0 60008 

< 151 > 

60006 

IF I>2023 THEN 60011 

<059> 

60007 

1=1+1:GOTO 60005 

<046> 

60008 

FOR I=A TO A+38:IF PEEK(I)=0 THEN B= 



1-1 

<204> 

60009 

NEXT:FOR I=A-l+40 TO 2023 STEP 40:IF 



PEEK(I)=0 THEN C=I+1 

<241 > 

60010 

NEXT 

<214> 

60011 

AB=B—A:D=C+AB:IF A=0 OR B=0 OR C=0 0 
R D=0 THEN PRINT“?ILLEGAL SIZE(2SPAC 



E TERROR":END 

<251 > 

60012 

FA=PEEK(53280) 

< 164> 

60013 

IF FA>15 THEN FA=FA-16:GOTO 60013 

< 182> 

60014 

FOR I1=A TO C STEP 40:Z#="?"+CHR#(34 
>:FOR 1=11 TO I1+AB:X=PEEK(I):CL=PEE 



K(1+54272) 

<240> 

60015 

IF CL>15 THEN CL=CL-16:GOTO 60015 

<210> 

60016 

IF RV=2 AND X<128 THEN RV=3 

<250> 

60017 

IF X >127 AND RV=0 THEN RV=1 

<244> 

60018 

IF RV=1 OR RV=2 THEN X=X-128 

<253> 

60019 

IF X >63 AND X<96 THEN X=X+32:G0T0 60 



023 

<089> 

60020 

IF X>96 AND X<128 THEN X=X+64:G0T0 6 



0023 

< 145> 

60021 

IF X>0 AND X<32 THEN X=X+64:G0T0 600 



23 

<029> 

60022 

IF X>=32 AND X<64 THEN X=X 

<056> 

60023 

IF FA=CL THEN 60027 

<090> 

60024 

FA=CL:IF FA=0 THEN Z#=Z#+"(BLACK}" 

<043> 

60025 

FOR 12=1 TO 15:IF FA=I2 THEN Z*=Z*+Y 



# (12) 

<013> 

60026 

NEXT 12 

<097> 

60027 

IF RV=1 THEN Z#=Z#+"(RVSON}":RV=2 

< 150> 

60028 

IF RV=3 THEN Z#=Z#+"(RVOFF}":RV=0 

<023> 

60029 

Z#=Z#+CHR#(X):NEXT I:Z#=Z*+CHR*(34): 



Z#(AN)=Z#:Z#="":AN=AN+1:RV=0:NEXT I1 

< 154> 

60030 

INPUT"(CLRTAB WELCHER ZEILE ";ZN:IF 



ZN<0 OR ZN>63000 THEN 60030 

< 159> 

60031 

PRINT"(CLR,2DOWN}":FOR 1=0 TO(C-A)/4 
0:PRINT ZN+I;Z#(I):NEXT:PRINT"(HOME} 



";:END 

< 178> 

Listing 27. Grafik-Designer 



Ich hoffe, daß es mir mit dem vorliegenden Kurs gelungen 
ist, Sie für Abenteuerspiele und deren Programmierung zu 
interessieren. Dazu wünsche ich Ihnen viele gute Ideen und 
viel Spaß. 

(Michael Nickles/rg) 
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Listings 


Zauberschloß 


Zauberschloß - 
ein Abenteuer¬ 
spiel 

mit Tücken 


Abenteuerspiele haben ihren ganz 
besonderen Reiz. Gefragt sind weni¬ 
ger die motorischen Reaktionsfähig¬ 
keiten, sondern vielmehr die logische 
Vorgehensweise und viel Fantasia In 
einem streng bewachten Schloß mit 
seinen vielfältigen Gefahren gilt es, 
dem Zauberer die Krone und damit 
die Regentschaft über das Volk zu ent¬ 
reißen. Doch es ist ein steiniger Weg. 


Es ist uns klar, daß wir mit der Veröffentlichung des Listings 
vom Zauberschloß die Möglichkeit bieten, durch Analyse des 
Programms dem Lösungsweg auf die Spur zu kommen. Viel 
wichtiger erschien uns jedoch, einmal an einem kommentier¬ 
ten Listing zu zeigen, wie ein Abenteuerspiel aufgebaut ist. 
Nicht zuletzt, um vielleicht einige Leser anzuregen, sich 
selbst mit der Erstellung dieser Denkspiele zu befassen. 

Worum geht es bei dem Abenteuerspiel Zauberschloß? 
Nach dem Starten des Programms sieht man zunächst den 
Wald vor lauter Bäumen nicht. Präzise gesagt, man befindet 
sich in einem Wald, der kein Ende zu nehmen scheint. In wel¬ 
che Richtung man auch läuft — nur Wald. Mit einem Trick 
gelangt man aber doch in das Zauberschloß. 

An dieser Stelle sei kurz auf die Art der Befehlseingabe hin¬ 
gewiesen. Um die gestellte Aufgabe (die sich erst während 
des Spiels klarer herauskristallisiert) zu lösen, geben Sie dem 
Computer Anweisungen, die er dann ausführt. Diese Befehle 
bestehen in der Regel aus zwei Worten, die durch eine Leer¬ 
stelle getrennt sein müssen. Das erste Wort ist ein Befehls¬ 
wort, das aus dem vorhandenen Wortschatz (NIMM VER¬ 
LIERE LIES ÖFFNE VERJAGE DREH BENUTZE TRINK) zu 
entnehmen ist. Das zweite Wort bezieht sich auf einen 
Gegenstand, der in den jeweiligen Situationsbildern zu sehen 
ist. Die Auswirkungen der Kommandos werden vom C64 auf 
dem Bildschirm als Nachricht angezeigt. Für die Richtungs¬ 
angabe werden nur die Anfangsbuchstaben eingegeben. Die 
möglichen Himmelsrichtungen sind jeweils vorgegeben. 

Das Schloß besteht aus mehreren Stockwerken ein¬ 
schließlich einem Kerker im Keller, der in keinem anständigen 
Schloß fehlen darf. In den verschiedenen Stockwerken 
lauern Kobolde, die Sie bei falscher Vorgehensweise in einen 
Zwerg verwandeln, öffnen sich bei Fehltritten Falltüren, liegen 
Tarnkappen, Gift- und Zaubergetränke, Messer, Speere und 
Zettel herum. All diese Gegenstände stehen in irgendeiner 
Beziehung zum weiteren Vorwärtskommen. Man muß sie in 
der entsprechenden Reihenfolge aufnehmen und wieder 
wegwerfen. Wegwerfen deshalb, weil man zu einem bestimm- 

333 ? 


Zeile 

102-162 

101-102 

104-106 

108-110 

112-114 

116-118 

120-122 

125-127 

130-132 

135-138 

140-143 

150-151 

155-157 

160-162 

500- 

1000 

1500 

2030 

10000 


10005-10092 

11000 - 


21000 - 

22000-22010 

30000- 

40000- 

50000-52000 

55000-57000 

58000-59000 

601" » 

60020-60030 

60200-60222 

60310 


Datas für Sprites 
Fackel (Multicolor) 

Wache 
Drache 1. Teil 
Drache 2. Teil 
Drache 3. Teil 
Gift 

Handschuh 

Zauberer 1. Teil 

Zauberer 2. Teil 

Krone 

Maus 

Kobold 

Zaubertrank 

Spielanleitung 
Spielbeginn (im Wald) 

Unterprogramm Bäume zeichnen 
Bildschirm blinken 

im Schloß Poke VC + 17, Peek (VC + 17) and 
239 = Bildschirm ausschalten (einschalten mit 
Poke VC + 17, Peek (VC + 17) or 16 
Zeichnen des Flaums mit Türen und Leitern 
sonstige Gegenstände; zu ausführliche Erläu¬ 
terungen würden hier zu viele Hinweise auf 
die Lösung geben 

verschiedene Kontrollen und Zähler für 

Dunkelheit, Tarnkappe, Drache- 

Ausgabe der im Flaum befindlichen Gegenstände 

Kommandoeingabe Erkennung und Fleaktion 

Spiel gewonnen, Schloß in Rauch auflösen... 

angefangenes Spiel aufnehmen 

angefangenes Spiel laden 

Fehlerkontrolle für Diskette 

Ende Kommentare und Reaktionen 

Auflisten der getragenen Gegenstände 

Plan des Schlosses 

Spielende bei verlorenem Spiel 


Teilweise ist das Programm ein wenig umständlich und 
könnte vielleicht einfacher programmiert sein. Da aber 
das Programm schrittweise erstellt wurde, war dies 
größtenteils nicht mehr möglich, oder eine Änderung 
wäre zu aufwendig gewesen. 


Bit 

PR (PI) 1. Block 

PL (P) 2. Block 

1 

Nord 

Fackel 

2 

Ost 

Speer 

4 

Süd 

Handschuh 

8 

West 

Krone 

16 

Hoch 

Schlüssel 

32 

Runter 

Knopf 

64 

Fallgrube 

Buch 

128 

1. Wache 

Truhe 

256 

2. Wache 

Messer 

512 

Drache 

Zaubertrank 

1024 

Zauberer 

Schild 

2048 

— 

Kobold 

4096 

— 

Tarnkappe 

8192 

— 

Plan 

16384 

— 

Gift 


Das Abenteuerspiel »Zauberschloß« nach Zeilennummern 
aufgeschlüsselt mit Bitmapping 

ten Zeitpunkt nur vier Gegenstände gleichzeitig tragen kann. 
Ein wesentlicher Meilenstein ist das Buch. In diesem Buch 
stehen nämlich wichtige Informationen, wie man sich bei der 
letztlich eintretenden Konfrontation mit dem Zauberer zu ver¬ 
halten hat. Aber Vorsicht, die Wache hat etwas gegen den ver¬ 
ständlichen Wunsch, dieses Buch zu lesen. Als größtes Hin- 
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Listings 






Zauberschloß 


Variable: 

VC 

= 

53281, Videochip Start 

XY 

= 

Zahl der Gegenstände, die man tragen kann 
(2 oder 4) 

X,Y 

= 

Position im Wald 

PX, PY, PZ 

= 

Position im Schloß 

HA 

= 

Speicherung aller Gegenstände, die man bei sich 
hat 

HB 

= 

Zahl dieser Gegenstände 

RU 


erstes Spiel (= 0) oder weiteres Spiel (= 1), um 
unnötiges, mehrmaliges Durchlaufen einiger Pro¬ 
grammteile zu umgehen. 

W, WZ 

= 

Zähler zur Kontrolle, ob und wie lange man sich 
mit einer Wache in einem Raum befindet 

DR, DZ 

= 

wie oben, für den Drachen 

BU 


Zähler, wie lange man das Buch trägt 

BE 

= 

Kontrolle zur Benutzung der Tarnkappe 

HE 

= 

Zähler zur Kontrolle der Helligkeit 

BUS 

= 

»0« wenn Buch offen ist 

TUS 

= 

»0« wenn Tür offen ist 

DLS 

= 

Tabelle aller Gegenstände 

PR(X,Y,Z) 

SB 

Plan der möglichen Richtungen und unbewegli¬ 
chen Gegenstände in den Räumen 

PI 

= 

wie oben, für den Raum, in dem man sich gerade 
befindet 

PL(X,Y,Z) 

= 

Plan der beweglichen Gegenstände 

P 

= 

wie oben, für augenblicklichen Raum 

KOS 

= 

vom Spieler eingegebenes Kommando 

AS 

= 

Kommentar 

Zeilen: 

2,3 

Datas für Namen der Gegenstände zum Erkennen 
und Ausgeben 

10-70 

Datas für Schloßplan 1. Block: Richtungen und 
unbewegliche Dinge (PR beziehungsweise PI) 

2. Block: bewegliche Gegenstände (PL bezie¬ 
hungsweise P) 

Die Speicherung erfolgt, wie bei HA, bitweise, das 
heißt zum Beispiel 1. Bit der Zahl gesetzt = Fackel 
befindet sich im betreffenden Raum. 


Variablendefinition und einige Erläuterungen 


dernis tritt Ihnen ein feuerspeiender Drache gegenüber, der 
den Eingang zum Thronsaal bewacht. Fürwahr, ein schwerer 
Brocken. Wenn Sie aber den richtigen Zauberspruch auf 
Lager haben, verwandelt der Zauberer sich in eine niedliche 
Maus, und Sie haben das Königreich von einem Tyrannen 
befreit. Es bleibt nur ein Problem: Wie kommt man mit der 
Krone wieder aus dem Schloß heraus? 

Aber bis Sie soweit vorgedrungen sind, werden sicherlich 
einige Stunden vergangen sein, in denen Sie ein Wechselbad 
von Enttäuschungen und Hochgefühlen durchleben. Da bis 
zum endgültigen Ziel eine Menge Schritte einzugeben sind, 
und Sie sicherlich nicht beim ersten Versuch gleich die 
Lösung finden werden, bietet Ihnen das Programm die Mög¬ 
lichkeit, das Spiel mit dem Kommando SAVE abzuspeichern. 
So können Sie zu einem späteren Zeitpunkt genau bei der 
Stelle weitersuchen, an der Sie kurz vor einem Zusammen¬ 
bruch aufgehört haben. 

Noch eine kurze Bemerkung zum Listing: Um die oben 
angesprochene Analyse dennoch etwas zu erschweren, sind 
einige Daten verschlüsselt worden. Das Listing ist im Grafik¬ 
modus einzugeben. 

Und nun viel Spaß bei einem Abenteuer im Zauberschloß. 


(Dennis Merbach/aa) 


0 PRINT"CCLR,2D0WN,RVSQN,3SPACE»BITTE WARTENCZSPACE> 
-I2SPACEJICH LESE DATENC6SPACE,RVOFF,BLACKPOKE 
53280,12:P0KE 53281,9 <064> 

1 RESTQRE:HE=0:VC=S3248:PZ=1:PX=3:PY=2sRI=0:WZ=0:DZ= 

0:DR=0:W=0: X=0: Y=0:HA=0:HB=0 <173> 

2 DATA FACKEL,SPEER,HANDSCHUH,KRONE,SCHLUESSEL,KNOPF 

.BUCH,TRUHE,MESSER <017> 

3 DATA ZAUBERTRANK,SCHILD,KOBOLD,TARNKAPPE,ZETTEL,Gl 

FT <J97> 

4 POKE VC+21,0:IF RU=0 THEN DIM PL<2,5,4),PR(2,5,4), 

DI* <14) <1S7> 

5 FOR A=0 TO 14:READ DI*<A):NEXT <114> 

10 DATA 6,14,15,24 <120> 

11 DATA 64,5,3,140 <121> 

12 DATA 39,11,140,5 <171> 

13 DATA 1,18,271,41 <173> 

20 DATA 64,10,12,36 <178> 

21 DATA 1026,522,269,1 <0B0> 

22 DATA 6,142,11,12 <175> 

23 DATA 17,33,4,1 <081> 

30 FOR A=1 TO 2sFOR B=1 TO 4:F0R C-l TO 4:READ PR<A, 

B,C>:NEXT:NEXT: NEXT <016> 

50 DATA 16384,512,0,1 <056> 

51 DATA 0,2S6,0,64 <161> 

52 DATA 0,0,128,2048 <004> 

53 DATA 2,4096,1024,0 <056> 

60 DATA 0,8192,0,0 <167> 

61 DATA 0,0,0,16 <059> 

62 DATA 0,0,2,0 <007> 

63 DATA 0,2048,4,32 <221> 

70 FOR A=1 TO 2sFOR B=1 TO 4sF0R C=1 TO 4:READ PL<A, 

B,C>:NEXT:NEXT:NEXT <050> 

101 DATA, , , , ,4, , , 18, , ,65, , ,40, ,2,36, , ,82, , ,168, , , 1S2 

,,,32,,,4B,,,48,,,4B,,,4B <177> 

102 DATA,,48,,,48,,,48,,,48,,,48,,,48,,,48 <077> 

104 DATA 16,,,16,,,18,,,255,76,64,19,95,64,18,63,128 

,16,21,,16,31,,16,17,,17,255 <124> 

105 DATA 192,63,255,254,63,255,254,19,255,254,19,255 

,246,19,255,246,19,255,246 <103> 

106 DATA 19,255,246,19,255,240,19,255,240,16,51,0,19 

,243,240 <197> 

108 DATA 8,,,6,,,31,,,54,,,104,,,96,,,192,,,192,,,19 

2.. .192.42.0 <048> 

109 DATA 224,127,80,224,255,248,224,255,253,103,255, 

255,127,255,255,127,31,227 <077> 

110 DATA 126,239,221,63,247,2S3,31,247,221,15,97,184 

,7,126,191 <057> 

112 DATA,126,,,62,,,126,,,63,,,127,,,63,,,127,,,63,, 

Ip -****••», , ,62,0 <041 > 

113 DHi A 1,126,,11,252, ,95,252,,255,248,0,255,248,0, 

255,240,0,255,224,0 <202> 

114 DATA 255,192,0,255,128,0,126,0,0,56,0,0 <10S> 

116 DATA 0,0,0,3,128,0,15,224,0,30,120,0,62,254,0,12 

7,255,135,255,255,253 <029> 

117 DATA 127,255,255,255,127,255,127,128,0,255,213,9 

4,127,255,252,25S,255,240 <041> 

118 DATA 127,248,0,255,192,0,127,0,0,255,0,0,126,0,0 

,254,0,0,126,0,0,254,,, <103> 

120 DATA,,255,,,126,,,66,,,66,,15,195,240,8,,16,8,60 

,16,8,126,16,8,153,16 <091> 

121 DATA 9,153,144,9,255,144,9,231,144,8,255,16,10,6 

6,80,9,255,144,8,126,16 <195> 

122 DATA 8,36,16,8,195,16,11,,208,15,255,240,,, <063> 

125 DATA 0,0,0,0,0,0,0,48,0,1,182,0,1,182,0,1,182,0, 

1,182,0,13,182,0,13,182,24 <232> 

126 DATA 13,182,56,13,182,56,13,182,112,13,182,240,1 

5,255,192,15,255,192 <037> 

127 DATA 15,255,128,7,255,128,7,255,0,3,255,0,3,255, 

0,3,255,0 <249> 

130 DATA 1,255,12B,1,255,128,1,255,128,1,60,128,1,15 

3.128.1.255.128.1.255.128 <020> 

131 DATA 12,189,48,6,189,96,2,219,64,2,102,64,3,126, 

192.1.60.128.1.189.128 <157> 

132 DATA 1,153,128,3,195,192,3,221,192,3,255,192,3,2 

55,192,3,189,192,7,1B9,192 <106> 

135 DATA 7,189,224,7,189,224,7,60,224,7,126,224,7,12 

6,224,7,126,224,4,255,32 <254> 

136 DATA 15,255,240,15,255,240,15,255,240,15,255,240 

,15,255,240,15,255,240 <135> 

137 DATA 31,255,248,31,255,248,31,255,248,31,255,248 

,62,221,124,48,221,12 <104> 

138 DATA 119,221,238,,, <182> 

140 DATA 32,24,4,32,24,2,48,60,12,48,60,12,48,60,12, 

48,60,12,56,126,28,56,126,28 <175> 

141 DATA 56,126,28,56,126,28,56,126,28,59,255,188,59 

,255,188,59,255,18B <071> 

142 DATA 59,255,188,63,255,252,63,255,252,63,255,252 

,63,255,252,63,255,252 <190> 

143 DATA,, <106> 

150 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,12,,, 

13.248.. 13.252..63.254.1 <072> 

151 DATA 111,254,1,255,255,2,127,255,252,,, <150> 

155 DATA 1,252,0,3,30,0,3,231,0,14,123,128,15,249,12 

8,3,96,0,0,204,0 <069> 

156 DATA 3,15B,0,3,62,0,0,110,0,0,238,0,0,239,0,0,23 

9,0,0,239,0,0,239,0 <198> 


Listing »Zauberschloß«. Beachten Sie bitte den 
Checksummer. 
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Listing »Zauberschloß« (Fortsetzung) 

157 DATA 0,31,0,0,255,0,0,255,0,0,56,0,3,184,0,3,248 

,0 < 

160 DATA 126,0,0,36,0,0,36,0,0,36,0,0,131,0,3, 129, 19 

2,2,0,64,3,0,192 < 

161 DATA 3,255,192,3,253,192,3,127,192,3,239,192,3,2 

55.192.3.251.192.3.255.192 

162 DATA 3,223,192,3,255,192,3,253,192,3,127,192,3,2 

55.192.3.255.192 
400 IF RU=1 THEN 500 

410 DIM SP(13,63):FOR A=1 TD 13:FOR B=1 TD 63sREAD S 
P (A,B)s NEXT s NEXT 

500 PRINT"{CLR,3DaWN3“,"<2SPACE3ZAUBERSCHLOSS":PRINT 
"<DOWN,SSPACE)EIN SPIEL VON DENNIS MERBACH " 

510 PRINT"{4DOWN3MOECHTEN SIE EIN(SPACE,RVSON>N<RVOF 
F3EUES SPIEL BEGINNEN" 

512 PRINT,,"{3LEFT,DOWN,RVS0N3A{RV0FF3LTES SPIEL FOR 
TSETZEN" 

520 GET A*:IF A4""A"THEN 55000 
522 IF A*="N"THEN 600 
524 GOTO 520 

599 STOP 

600 PRINT CHR4(14)"{CLR,3D0WN,SPACE3SIN flDVENTURE-SP 
IEL VON JENNIS flERBACH" 

610 PRINT"{2DOWN.2SPACE3ZIEL DES SPIELS IST ES, EINE 
AUFGABE," 

612 PRINT"{2SPACE3DIE IH VERLAUF DES SPIELS BESTELLT 


<123> 


< 138> 
<226> 


<023> 

<023> 

<205> 
<018> 
< 125> 
<046> 
<233> 

< 212 > 


<208> 

614 PRINT"{2SPACE3WIRD, ZU LOESEN.{2SPACE3AIE KOENNE 

N DEM" <143> 

616 PRINT"I2SPACEJEDMPUTER DAZU ANWEISUNGEN EINGEBEN 

•' <151> 

618 PRINT"{2SPACE>DIE ER DANN AUSFUEHRT. (2SPACE3AIES 

E BEFEHLE" <013> 

620 PRINT"{2SPACE3BESTEHEN IN DER .SEGEL AUS ZWEI HQR 

TEN," <173> 

622 PRINT"{UP,2SPACE3DIE DURCH EINE LEERSTELLE GETRE 
NNT " 

624 PRINT"{2SPACE3SEIN MUESSEN. EOLGENDE SDMMANDDS,“ 

625 PRINT"(2SPACE3GEF0LGT VON EINEM SEGENSTAND, WERD 
EN" 

626 PRINT"{2SPACE3V0M COMPUTER VERSTANDEN:" 

628 PRINT" CDOWN.SPACEIKXIW<SH I FT-SPACE 3 V E 1(1.1E « E (RH T F 
T-SPACE 3Ü&SISHI FT-SPACE l OEFEXE TSH IFT-SPACE UtlJ 

SPACE UAW. MÜESAE," < 162> 

629 REM ZEILE62B: NIMM VERLIERE LIES OEFFNE VERJAGE 

DREH BENUTZE TRINK DRUECKE <151> 

630 PRINT,"C3D0WN,3SPACE>WEITER?" <195> 


<031 > 
<229> 


< 010 > 

< 102 > 


631 GET A4:IF A*=""THEN 631 


632 PRINT"{CLR,2SPACE,4D0WN 3 JEI AI CHTUNGSANGABEN WER 
DEN NUR DIE” 

634 PRINT"<2SPACE>ANFANGSBUCHSTABEN EINGEGEBEN:" 

636 PRINT"{DOWN,2SPACE3A=ADRD S=SUED H=HEST fl=flST”:P 
RINT"{2SPACE3Ü-ÜDCH Ä=AUNTER" 

637 PRINT,,," A" :PRINT,,,"H±£":PRINT,,," S" 

638 REM 637 PRINT,,," N":PRINT,,,"W±Q“:PRINT,,," S" 

640 PRINT"{3D0WN,2SPACE3AACH DEM JEFEHL LIST WERDEN 
ALLE":REM LIST 

641 PRINT"{2SPACE3JINGE AUFGELISTET,DIE MAN BEI SICH 

642 PRINT"C2SPACE3HAT. VORSICHT: SIE KOENNEN IMMER N 
UR" 

644 PRINT"(2SPACE34 SEGENSTAENDE AUF EINMAL TRAGEN.“ 

646 PRINT"C2SPACE3AIT S_ftVE WIRD DAS SPIEL FUER SPAET 
ERES{2SPACE3WEITERSPIELEN GESPEICHERT" 

647 REM SAVE 

650 PRINT"<3DOWN,6SPACE3£ERTIG?“ 

652 GET A4: IF A4=""THEN 652 

653 PRINT CHR4(1423:PDKE 649,9:TI*="000000" 

1000 POKE 53281,9:PRINT"{CLR 3"lFOR A=0 TO 23 STEP 7: 

PRINT“{HOME 3":GOSUB 1500:NEXT 
1010 IF X=0 AND Y=0 AND RI=0 THEN PRINT,,,"{UP,4LEFT 
3SJ.(DOWN, 2LEFT3SJS.(UP 3 " l PR I NT " (2SPACE 3RING" 

1100 PRINT"(DOWN3RICHTUNGEN: N-W-S-O-H";:INPUT"<2SPA 
CE3KOMMANDO“;K04 
1110 IF K04*"N"THEN X-X+l 
1112 IF KD4="S"THEN X=X-1 
1114 IF KQ4="W"THEN Y-Y+l 
1118 IF K04-"0"THEN Y-Y-l 
1120 IF K04="NIMM RING"THEN RI*1 
1122 IF KO*="DREH RINB"AND RI-1 THEN 2000 
1124 IF K04="H"THEN 1400 

1126 IF K04="SAVE"OR KO*="Sfl"THEN PRINT"NOCH NICHT M 
OEGLICH":FOR A-l TO 1000:NEXT 

1127 IF K04="STOP"QR K04="ST"THEN STOP 

1129 IF KO*="LIST“OR KO*=”LA"THEN 3000 

1130 GOTO 1000 

1400 POKE 53281,0:PRINT"{CLR,2D0WN.GREY 2,D0WN,6SPAC 
E3SIE SIND BEIM KLETTERN " 

1401 PRINT"(7SPACE3V0M BAUM GEFALLEN":GOTO 60310 

1499 STOP 

1500 PRINT TAB(A)“{GREEN,8RIGHT3flfl" 

1501 PRINT TAB (A> " {7RIGHT3 MNftH " 

1502 PRINT TAB < A1 " {7RIGHT3 NNMTt " 

1503 PRINT TAB(A>"{6RIBHT3fla<2SPACE3fln" 

1504 PRINT TAB (Al " {6RIGHT3A Hfl fl" 

1505 PRINT TAB(Al"{5RIGHT3A HH7W fl" 

1506 PRINT TAB(Al"{5RIGHT3ANH(2BPACF>m(H" 

1507 PRINT TAB(A)"{4RIGHT3AAA Hfl iUSÖ" 

1508 PRINT TAB(A> "{4RIGHT3flAAA{2SPACE3flnflfl" 

1509 PRINT TAB(A1 " {3RIGHT3A AH AB ßfl fl" 

1510 PRINT TAB(A)"{4RIGHT3AA A<2SPACE3fl HO" 

1511 PRINT TAB (Al *' <3RIGHT 3 .HKHK AH flflflfl" 


<224> 


<045> 

< 185> 

< 113> 
<056> 
<06B> 

<076> 

<0B5> 

<na> 

< 002 > 

<250> 
<071 > 
<028> 
<248> 
<193> 

<206> 

<051 > 

<063> 
<203> 
<211 > 
<21B> 
<215> 
<041> 

< 142> 

<091 > 

< 186> 
<17B> 
<203> 

< 184> 

< 125> 
<109> 

< 112 > 
<108> 
<205> 
<206> 

< 17B> 

< 179> 
<050> 
<051 > 
<178> 
<179> 

< 151 > 
<026> 
<052> 


1512 PRINT TAB(A)“{2RIGHT3A HNNNHnnnmi fl" 

1513 PRINT TAB (A) " {2RIGHT3AAA HA<2SPACE3flfl flflfl" 

1514 PRINT TAB(A)"{RIGHT3AA AAA<SHIFT-SPACE3flfl{SHIFT 
-SPACE 3flflfl{SH I FT-SPACE 3flfl" 

1515 PRINT TAB(A) "{RIGHT3AAA HAÄ<2SHIFT-SPACE3flflfl{SH 
IFT-SPACE3flfifl" 

1516 PRINT TABjA1 "AH AHA HAflflISHIFT—SPACEJflflfl(SHIFT— 
SPACE3flfl" 

1517 PRINT TAB(A>"AHHA<SHIFT-SPACE3HAAAttailH{SHIFT-SP 
ACEIflflflfl" 

1518 PRINT TAB(A)“{BRIGHT,BLACK,RVSON,2SPACE3" 

1519 PRINT TAB(A>"C7RIBHT,RVSON3£<2SPACE3S" 

1520 RETURN 

2000 PRINT"{CLR,5DOWN.3SPACE3DER RING HAT SICH AUFGE 
LOEST" 

2010 PRINT-(2DOWN.2SPACE3ALLES UM SIE BEGINNT SICH Z 
U DREHEN" 

2020 FOR A=1 TO 2000:NEXT:PRINT"<CLRJ" 

2030 FOR A=1 TO 100:FOR 8=1 TO 101-A:NEXT:POKE 53281 
, INT (RND( 13*256) (NEXT-.XY-4 
2040 GOTO 10000 

3000 IF RI=0 THEN PRINT"{CLR,4DOWN.5SPACE3SIE HABEN 
NICHTS":FOR A=1 TO 2000:NEXT:GOTO 1000 
3010 PRINT"{CLR,4DOWN.3SPACE3SIE HABEN EINEN RING":F 
OR A=1 TO 2000:NEXT:GOTO 1000 
10000 POKE 53281,9:P0KE VC+17,PEEK(VC+17)AND 239 
10005 PRINT" (CLR3".-POKE VC+21,0:FOR A=2 TO 5:PRINT T 
AB (A3 •• {BLACK )fl"SPC (35—2*A) "A": NEXT 
10010 PRINT 11 {6SPACE3 flVYV VY VVVVVVYVYYYYYVYVYY £" 

10020 FOR A=1 TO 8: PRINT" {6SPACE33TSPC (23) "JT':NEXT 
10030 PRINT" !6SPACE)L .PP ' PP ' PPPPpppVe T p - p Yt pp»VÜ " : R14-■ 

10040 FOR A=5 TO 2 STEP-1:PRINT TAB(A)"A"SPC(35—2#A> 

"fl":NEXT 

10050 P1=PR(PZ,PX,PY):IF(P1 AND 1)01 THEN 10060 

10051 PRINT” {HOME ,6D0WN3" , " (5SPACE3 ppp»» ": PRINT, " { 

4 SPACE >Ha'p>VcVAR" 

10053 FOR A=1 TO 6:PRINT, " {4RIGHT3U3K5SPACE3TTR":NEXT 
: PRINT,“ {4RI GHT 3fifl{5SPACE 3flL" 

10054 RI*="—N":P0KE 214,10:PRINT:PRINT,■{6RIGHT3»» 

p"' 

10060 IF (PI AND 8)08 THEN 10070 

10061 PRINT" {HOME,4D0WN,SPACE)Hfl “:PRINT“ Wfl":RI4=R 
I4+"-W" 

10062 PRINT" HTA":FOR A=1 TO 9:PRINT" JJ H": NEXT 

10063 PRINT" 57pH":PRINT" BT3SPACE3":PRINT" SJ ":PRINT 
" A":IF KK=1 THEN KK=0:GOTO 30000 

10070 IF (PI AND 2)02 THEN 10080 

10071 PRINT”{HOME,4D0WN}■,,,-<4RIGHT3flH“:PRINT,,,"{3 
RIGHT3A H":RI4=RI4+"-0" 

J*"'2 PRINT, ,,"<3RIGHT)fl7i?":F0R A=1 TO 9: PRINT, , , " {3 
RIGHT3H TT“:NEXT:PRINT, , , “ {2SPACEIflifi?" 

10073 PRINT,,,"<5SPACE>H”:PRINT,,,"{5SPACE3H<D0WN,LE 
FT3fl“ 

10080 IF(PI AND 4)=4 THEN RI4=RI4+"-S" 

10081 IF (PI AND 16)016 THEN 10070 

10082 PRINT" {HOME 3“:PRINT,,"{2LEFT 3pWp'p-pfTp": PR I NT, 

” <2LEFT3flfl = B5 , ^AA":RI4=RI4+"-H" 

10083 PRINT,,"{LEFT3fl5S£nH":FOR A=1 TO 7:PRINT,,"-{2 
RIGHT)^": PRINT, , “BS£H":NEXT 

10070 IF (PI AND 32)032 THEN 10100 

10091 POKE 214,15: PRINT: PRINT, , " LBE": PRINT, , " L.BE" : 
PRINT,,"AR RÜ":RI4=RI4+"-R" 

10092 PRINT, , " {LEFT3AÄ&VJÜU1": PRINT, , " (LEFT3YYYY VYV " 

10100 P=PL(PZ,PX,PY>:IF(P AND 204B)=0 THEN 10120 

10101 IF(HA AND 2)=0 THEN 10120 
10103 HA=HA—2:K0=2:HB=HB-1 

10105 POKE 214,1B:PRINT:PRINT" DER KOBOLD HAT IHREN 
SPEER GESTOHLEN" 

10120 IF (P AND 2) =2 THEN POKE 214,14: PRINT: PRINT, "*-£ 
f-C_CE.CC " 

10130 IF(P AND 16)-16 THEN POKE 214,16:PRINT:PRINT,, 

" {SLEFTIOSTT 

10140 IF (P AND 64)064 THEN 10150 

10141 POKE 214,15:PRINT:PRINT," :PRINT,"A<3SPAC 

E 3 A" :PRINT,"{LEFT 3 A{3SPACE 3flfl" 

10142 PRINT, " {2LEFT3ATPRAA":PRINT, " {SLEFTJf — (fl":PR 
INT,"{2LEFT 3YYYY" 

10150 IF(P AND 256)=256 THEN POKE 214,17:PRINT:PRINT 
,,"{3SPACE 350BB"lPRINT,,“{RVSON,4SPACE,RVDFF3H 
KJ>":PRINT, ,” (3SPACE3C" 

10160 IF (P AND 1)01 THEN 10170 

10161 FOR A=1 TO 63:POKE 831+A.SP(1,A>:NEXT:POKE VC, 

255:POKE VC+1,100 

10162 POKE 2040,13:POKE VC+37,2:P0KE VC.38,0:POKE VC 
+39,7:POKE VC+21,PEEK(VC+21)OR 1 

10163 POKE VC+2B.PEEK(VC+28)OR 1 

10170 IF (PI AND 64)064 THEN 10180 

10171 PRINT"{CLR,2D0WN,3RIGHT,GREY 23SIE SIND IN EIN 
E FALLGRUBE GELAUFEN" 

10172 POKE 53281,0:GOTO 60310 

10180 IF (PI AND 128)0128 AND(P1 AND 256)0256 THEN 

10200 <249> 

10181 FOR A=1 TO 63:POKE 895+A.SP(2,A):NEXT:POKE 204 

1,14:POKE VC+40,0:POKE VC+2,100 <123> 

10182 POKE VC+3,138:POKE VC*21,PEEK(VC*21)0R 2:P0KE 

VC+23,2:POKE VC+29,2:W=1 <040> 

10183 POKE VC+28,PEEK(VC+28)AND 243:IF(P1 AND 256)0 

256 THEN 10200 <228> 

10184 POKE VC+41,0:POKE VC+23,6:P0KE VC+29,6:P0KE VC 

+4,200:POKE VC+5,138:POKE 2042,14 <135> 

101B5 POKE VC+21,PEEK(VC+21)0R 4 <246> 

10200 IF(P AND 1024)01024 THEN 10210 <103> 

10201 PRINT"{HOME,11D0WN,5RIGHT3SY£":PRINT"{5RIGHT3H 

{SHIFT-SPACE3B": PRINT" {5RIBHT3WHJ" <097> 


<!79> 

<025> 


<088> 

<244> 

<103> 

<067> 

< 131 > 

< 154> 

< 103> 
<072> 

<166> 
<121 > 

<179> 

<228> 

<233> 

<136> 

<046> 

< 117> 

<096> 

<035> 

< 140> 


<242> 

<193> 

<242> 

<137> 
< 102 > 

<224 > 
<241 > 

< 184> 

<218> 

<095> 

<242> 

<103> 

<0943 

<0073 

< 100 > 

< 172> 
<254> 
<061 > 
<095> 
<211 > 

<094> 

<20B> 

<147> 

< 116> 


<024> 


<063> 

<024> 

<144> 

< 157> 
<235> 
<198> 

<005 > 

< 150> 
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10220 

10221 

10222 

10223 

10230 

10231 

10232 

10235 

10237 

10239 

10241 

10250 

10251 
10260 
10265 
10270 

10300 

10350 

10355 

10360 

10400 

10410 

10420 

10430 

10435 

10437 

10439 

10450 

10455 

10457 

10459 

10461 

10500 

10502 

10504 

10550 

10555 

10557 

10559 

10600 

10610 

10650 

10700 

10710 

10715 

10717 

10800 

20000 

21000 


PRINT" C5RIGHT>tf fj": PRINT" C5R16HT>fl H": PRINT" C5 
RIGHT,SPACE>7" 

IF (P AND 8192)00 THEN PGKE 214,18: PRINT: PRINT 
,"CRVSON,WHITE,SPACE,BLACK >" 

IF (P AND 128)0128 THEN 10230 

PGKE 214,11:PRINT:PRINT,,"C5RIGHTI5553":PRINT, 
, " C4RIGHT>M<3SPACE>J4^" 

PRINT, , " C4RIGHT3A77P A." 

PRINT,,"<4RIGHT> C2SPACE>W:PRINT,,"C4RIGHT>T 


< 115> 
<037> 


<087> 
< 151 > 


<075> 

<08B> 

<0B8> 


IF (PI AND 512)0512 THEN 10300 
IF(P AND 16384>-16384 THEN 60400 
FOR A=3 TO 5:FÜR B=1 TO 63:P0KE 831+64*<A-3)+B 
,SP(A,B):NEXT:NEXT:POKE VC+28,0 
POKE 2040,13:POKE 2041,14:POKE 2042,15:POKE VC 
+39,5:POKE VC+40,5:POKE VC+41,5 
POKE VC+21,7 

POKE VC+23,7:POKE VC+29,7:P0KE VC,100:POKE VC+ 

1,155:POKE VC+2,148:POKE VC+3,155 
POKE VC+4,164:POKE VC+5,113:Fl-2«F2-7 
POKE VC+17,PEEK(VC+17)OR 16:FOR A=1 TO 25:POKE 
53281,Fl:POKE 53281,F2:FOR B=1 TO 60 
NEXT:MF=F1:F1-F2:F2—MF:NEXT:POKE 53281,9 
IF(HA AND 1024)«1024 THEN 10270 
GOTO 60330 

DR=1: IF DR=2 AND(P AND 16384) 016384 THEN 6030 
0 

IF(HA AND 64)=64 THEN BU=BU+1:IF BU=5 THEN 600 
00 

IF(P AND 16384)=0 THEN 10400 

FOR A=0 TO 63:POKE A+960,SP(6,A):NEXT:POKE 204 
4,15:POKE VC+21,PEEK(VC+21)0R 16 
POKE VC+43,1:POKE VC+B,100:POKE VC+9,170 
IF (HA AND 16384) =16384 AND (HA AND 4)04 THEN 6 
0040 

IF(PI AND 256)=256 AND(P AND 128)=128 THEN 600 
50 

IF(HA AND 1)=1 AND(HA AND 64)=64 THEN 60070 
IF(P AND 4)=0 THEN 10450 

FOR A=0 TO 63:POKE A+896,SP(7,A):NEXT:POKE VC+ 

21,PEEK(VC+21)OR 2:POKE 2041,14 

POKE VC+40,13:POKE VC+2,200:POKE VC+3,200:POKE 
VC+29,PEEK(VC+29)AND 253 
POKE VC+23,PEEK(VC+23)AND 253 
IF(PI AND 1024)=0 THEN 10500 

N=831:FOR A=8 TO 10:FOR B=0 TO 63:N=N+1:POKE N 
,SP(A,B>:NEXT:NEXT 

POKE VC+21,7:POKE VC+39,0:POKE VC+40,0:POKE VC 
+41,7 

POKE VC+4,162:POKE VC+5,83:POKE VC+2,150:POKE 
VC+3,143:POKE VC,150:POKE VC+1,103 <250> 

POKE VC+23,3:P0KE VC+29,3:P0KE 2040,13:POKE 20 
41,14:POKE 2042,15 
IF(P AND B)=0 THEN 10550 

FOR A=0 TO 63:POKE A+960,SP(10,A>:NEXT:POKE VC 
+21,PEEK(VC+21>0R 4:POKE 2042,15 
POKE VC+4,150:POKE VC+5,170 
IF(P AND 2048)=0 THEN 10600 

FOR A=0 TO 63:POKE B96+A,SP(12,A):NEXT:POKE 20 
41,14:POKE VC+40,0 

POKE VC+21,PEEK(VC+21)+2:POKE VC+2,250:POKE VC 
+3,180 

POKE VC+23,PEEK(VC+23)AND 253:POKE VC+29,PEEK( 

VC+29)AND 253 

IF(P AND 4096)=0 THEN 10650 
POKE 214,18:PRINT: PRINT, "Ü£J.“ sPRINT, "BW' 

IF P AND 32 THEN POKE 214,10:PRINT:PRINT,"H" 

IF(P AND 512)=0 THEN 10800 

FOR A=1 TO 63:POKE 702+A,SP(13,A):NEXT:POKE 20 
47,11 

POKE VC+21,PEEK(VC+21)0R 12B:P0KE VC+46,4 
POKE VC+14,60:POKE VC+15,170 


<054> 

<247> 

< 196> 

<250> 

<056> 

<056> 

<114> 

<049> 

< 198> 

<013> 

<064> 

<245> 

< 198> 
<088> 

<063> 

<083> 

< 102 > 
< 120 > 

<230> 

< 121 > 
<094> 
<076> 

<059> 

<045> 


<252> 

<196> 

<080> 

<014> 

<136> 

<033> 

< 121 > 

< 140> 

< 196> 
<074 > 
<001 > 
<234> 


<223> 
<079 > 
<021 > 

< 14B> 

< 136> 


HE-HE+1:IF(HA AND 1)=1 OR(P AND 1)=1 THEN POKE 
53281,9:PRINT"<BLACK>":GOTO 21100 
21005 IF HE>9 THEN POKE 53281,0:PRINT"CGREY 2,UP,2SP 
ACE>ES IST DUNKEL":GOTO 21100 
21010 IF HE>7 THEN PRINT,,"CUP,2SPACE>ES WIRD DUNKEL 

21100 IF W=1 THEN WZ*WZ+1:IF WZ*2 THEN 60100 
21110 IF DR=1 THEN DZ=DZ+1:IF DZ-2 THEN 60300 
21120 IF BE=0 THEN 21130 

21125 BE=0:W=0:WZ=0:HA=HA-4096:HB=HB-1:PRINT" OJP>DIE 
TARNKAPPE HAT SICH AUFGELOEST" 

21130 IF HA AND 32 THEN KN=1 

22000 POKE 214,20:PRINT:FOR A=0 TO 14:IF(P AND(2tA>) 
<>0 THEN PRINT DI*(A>" "j 
22010 NEXT 

30000 POKE VC+17,PEEK(VC+17)OR 16:P0KE 214,21:PRINT: 
KO*="":A*="CSPACE,RVSON>NICHT MOEGLICH!CUP>" 

30001 PRINT"C2SPACE>RICHTUNGEN: MID«(RI*,2):INPUT" 

C3SPACE >KOMANDO";KO* 

30002 IF K0*="SAVE"OR K0*="Sfl"THEN 50000 

30003 IF PI AND 1024 THEN 60500 

30004 IF LEFT*(K0*,3)="SIM"0R LEFT*(KO*,3> ="ABR"THEN 

60590 

30006 IF(KO*="NIMM KOBOLD"OR KO*="VERJAGE KOBOLD")AN 
D P AND 2048 THEN 60600 

30008 IF(HA AND 4096)=4096 AND K0*="BENUTZE TARNKAPP 
E"THEN BE=1:A*="C3SPACE >IN ORDNUNG CUP>" 

30009 IF K0*="DRUECKE KNOPF"AND KN=0 THEN 60610 

30010 IF KO*="N"AND(PR(PZ,PX,PY)AND 1>=1 THEN PX=PX- 


< 123> 

<064> 

<09B> 

<017> 

<035> 

< 100 > 

<235> 

<039> 

<216> 

<209> 

< 1B3> 

<044> 
<041 > 
<204> 

< 165> 


<042> 

<060> 


1:GOTO 63970 <150> 

30020 IF K0*="0"AND(PR(PZ,PX,PY)AND 2)=2 THEN PY=PY+ 

1:G0T0 63970 <164> 

30030 IF KO*="S"AND(PR(PZ,PX,PY)AND 4)=4 THEN PX=PX+ 

1:GOTO 63970 <180> 

30040 IF KO*="W"AND(PR(PZ,PX,PY)AND 8)=8 THEN PY=PY- 

1:GOTO 63970 <205> 

30050 IF KO*="H"AND(PR(PZ,PX,PY)AND 16)=16 THEN PZ=P 

Z+l:GOTO 63970 <039> 

30060 IF KO*="R"AND(PR(PZ,PX,PY)AND 32)«32 THEN PZ=P 

Z-1:G0T0 63970 <056> 

30065 IF K0*="LIST"OR KO*="Li"THEN 60010 <120> 

30070 IF LEFT*(KO*,4)<>"NIMM"THEN 30200 <034> 

30080 IF HB=XY THEN PRINT"C3UP,3SPACE>SIE KOENNEN NI 

CHT SOVIEL TRAGEN":A*="":GOTO 31000 <232> 

30100 FOR A=0 TO 14:IF(MID*(KO*,6)<>DI*(A))OR(P AND 

2tA> < >2tA THEN NEXT:GOTO 30150 <057> 

30110 HB=HB+1:HA=HA OR 2tA:PL(PZ,PX,PY)=P-2tA:NE«1:N 

EXT <055> 

30150 IF NE=1 THEN NE=0:GOTO 10000 <012> 

30160 GOTO 31000 <194> 

30200 IF LEFT* (KO*, 8)0" VERLIERE "THEN 30300 <214> 

30210 FOR A=0 TO 14:IF(MID*(KO*,10)<>DI*(A))OR(HA AN 

D 2tA)<>2tA THEN NEXT:GOTO 30230 <011> 

30220 HB=HB-l:HA=HA-2tA:PL(PZ,PX,PY)«P OR 2TA:NE-1:N 

EXT <167> 

30230 IF NE«1 THEN NE=0:GOTO 10000 <093> 

30240 GOTO 31000 <243> 

30300 IF LEFT*(K0*,6)<>"OEFFNE"THEN 30400 <143> 

30310 IF MID* (KO*,8,4) < >"BUCH"OR (HA AND 64)064 THEN 

30330 <223> 

30320 BU*="0":PRINT,"CH0ME,4SPACE>DAS BUCH IST OFFEN 

":A*="":GOTO 31000 <224> 

30330 IF RIGHT*(KO*,4)< >"TUER"THEN 30340 <060> 

30335 IF (HA AND 16)016 THEN PRINT" C3UP,SPACE>DIE TU 

ER IST VERSCHLOSSEN":A*="":GOTO 31000 <095> 

30336 TU*="0":A*="C4UP,SPACE>DIE TUER IST OFFENCI3SP 

ACE>":GOTO 31000 <008> 

30340 IF RIGHT*(K0*,5X>"TRUHE"0R(HA AND 128)0128 T 

HEN 31000 <092> 

30345 PRINT"CHDME,SPACE>DIE TRUHE IST OFFEN, SIE ENT 

HAELT GOLD":GOTO 30000 <229> 

30400 IF K0*O"LIES BUCH"THEN 30450 <025> 

30410 IF BU*=""THEN PRINT"CCLR,7D0WN,5RIGHT>DAS ZAUB 

ERSCHLOSS":GOTO 30000 <017> 

30420 GOTO 63900 <213> 

30450 IF KO*="LIES ZETTEL"AND(HA AND 8192)=8192 THEN 

60200 <221> 

30500 IF LEFT* (KO*, 13)0" VERJAGE WACHE "AND K0*O"VER 

JAGE WAECHTER"THEN 30550 <177> 

30510 INPUT"W0MIT" ; DI*: IF DI*ODI* (1) OR (HA AND 2)02 

THEN 60100 <150> 

30520 IF PI AND 128 THEN PR(PZ,PX,PY)=P1-128:WZ=0:W= 

0:GOTO 10000 <095> 

30550 IF LEFT*(KO*,5)< >"TRINK"THEN 30700 <097> 

30555 IF RIGHT*(KO*,4)="GlFT"AND(HA AND 16384)=16384 

THEN 60040 <076> 

30556 IF(HA AND 512)=0 OR RIGHT*(KO*,11><>"ZAUBERTRA 

NK"THEN 30700 <009> 

30557 HB=HB-1:HA=HA—512 <183> 

30558 IF XY=2 THEN XY=4:PRINT"CH0ME,2D0WN,SPACE>SIE 

SIND WIEDER GROSS":A*="":GOTO 31000 <040> 

30560 PRINT"CHOME,SPACE>SIE SIND EIN ZWERGHB=0:PL 

(PZ,PX,PY)=P OR HA:HA=0:XY=2 <049> 

30565 FOR A=1 TO 2000:NEXT:GOTO 10000 <0B7> 

30700 : <157> 

31000 IF KO*="STOP"OR KO*="SX"THEN POKE 650,0:STOP <160> 

31010 PRINT A*:FOR A=1 TO 1000:NEXT <153> 

31020 POKE 214,21:PRINT;:PRINT:FOR A=1 TO 3 <249> 

31025 PRINT"C39SPACE>":NEXT:GOTO 30000 <249> 

40000 FOR A=1 TO 1000:NEXT:T*=TI*:POKE 53281,11:PRIN 

T"CCLR,6D0WN>" <057> 

40001 PRINT,"CBLACK,SPACE,RVSON >£7",,"CLEFT,RVSON 7 £* 

":PRINT,"CRVS0N>£C2SPACE>7"SPC(14)"£C2SPACE>¥" <192> 

40005 PRINT, " CRVSON>7C2SPACE>T"SPC (14)" CRVSON>7C2SPA 

CE>r M <052> 

40006 PRINT," CRVSON>7T3T"SPC( 14) " CRVSON>7T3T" <011> 

40007 PR INT," CRVSON J-rTTT" SPC (14)" CRVSON >KT3T" <012> 

40010 PRINT," CRVSON>TC2SPACE>rCRVOFF>WWS™ f 73rST E TJrC 

RVSON >TC2SPACE>r" <036> 

>T" * <045> 

40020 PRINT,"CRVSON>TC20SPACE>r* <098> 

40022 PRINT,"CRVSON>7C20SPACE>r" <100> 

40024 PRINT,"CRVSON>7C9SPACE>TC10SPACE>r" <008> 

40026 PRINT,"CRVSON>7CBSPACE>rCRIGHT>7C9SPACE>r' <220> 

40028 PRINT,"CRVS0N>7C8SPACE>rCRIGHT>7C9SPACE>r" <222> 

40030 PRINT,"CRVSON)7C8SPACE>TCRIGHT>7C9SPACE>7" <224> 

40050 FOR A=1 TO 1000:NEXT:FOR A=1 TO 20:POKE 53281, 

7:POKE 53281,0:POKE 53281,2:NEXT <014> 

40055 POKE 53281,11 <059> 

40100 FOR A=1 TO 1000:POKE INT(RND(1)*560+1260),102: 

NEXT <147> 

40110 FOR A«1 TO 1200:POKE INT(RND(1)*560+1260),32:N 

EXT:POKE 53281,11:F0R A=1 TO 500 <235> 

40120 NEXT:POKE 53281,5:PRINT"CCLR,3D0WN>DAS SCHLOSS 

HAT SICH IN RAUCH AUFGELOEST" <220> 

40125 PRINT"C2D0WN,2SPACE>SIE SIND DER NEUE KOENIG" <044> 
40130 PRINT,"C5D0WN>ZEIT: "LEFT*(T*,2)":"MID*(T*,3,2 

>":"MID*(T*,5>:END <027> 

45000 REM *** SUB SCHRIFTLOESCHEN *** <080> 

50000 POKE VC+21,0:1NPUT"CCLR,4DOWN,4SPACE>FILENAME" 

;N* < 116 > 

50009 PRINT"C3D0WN,3SPACE,RVSON >K CRVOFF >ASSETTEC2SPA 

CE}ODER C2SPACE,RVSON >DCRVOFF >ISKETTE?" <158 > 


59 









BH 




Zauberschloß 


Listings 


Listing »Zauberschloß« (Fortsetzung) 


60105 

PRINT"<CLR,4D0WN,GREY 2,2SPACE>DIE WACHE HAT S 
IE GEFANGEN" 

<050> 

50010 

GET K*iIF K*="D"THEN 51000 

<056> 

60106 

IF PI AND 256 THEN PRINT”(CLR,4DOWN,GREY 2,2SP 

50020 

IF K*="K"THEN 52000 

<000> 


ACEJDIE ZWEITE WACHE HAT SIE GEFANGEN" 

<010> 

50025 

GOTO 50010 

< 171 > 

60108 

IF BE=1 THEN 10000 

<067> 

51000 

OPEN 2,8,2,N*+",S,W":0PEN 15,8,15:INPUTH15,A,A 


60110 

POKE 53281,0:GOTO 60310 

< 1 07> 


*:IF ASO-OK-THEDI 59000 

<136> 

60120 

PRINT"(CLR,GREY 2,4D0WN,2SPACEIDIE HELLEBARDE 


51001 

REM ***************************** 2E 



DER WACHE IST LAENGER","(2SPACEIALS IHR MESSER 



ILE 51000 NUR FUER DISKETTE 

<068> 



<219> 

51100 

FDR Z=1 TO 2:FOR X=1 TO 4:FÜR Y=1 TO 4:PRINT#2 


60122 

GOTO 60310 

< 071 > 


•PL(Z , X, Y) 

<020> 

60125 

PRINT"(CLR,GREY 2,4D0WN,2SPACE>DIE WACHE WOLLT 


51101 

PRINT*2,PR(Z,X,Y): NEXT: NEXT:NEXT 

<228> 


E DAS GIFT NICHT ESSEN“ 

<026> 

51110 

PRINTM2,HA:PRINT#2,HB 3 PRINT*2,TI*:PRINT*2,PZ:P 


60126 

PRINT"(2SPACE>gND HAT SIE GEFANGEN":GOTO 60310 

<066> 


RINTtt2,PX:PRINT#2,PY 

<034> 

60200 

POKE 53281,15:IF HE>9 AND(P AND 1>=0 AND(HA AN 


51115 

PRINT#2,KO t PRINTN2,W:PRINT #2,W Z: PRINT#2,DR:PRI 



D 1> =0 THEN POKE 53281,0 

< 117> 


NT»2,DZ:PRINT#2,BU 

< 197> 

60201 

POKE VC+21,0:PRINT"(CLR,4D0WN,BLACK,6SPACE»flYY 


51120 

PRINT#2,BE:PRINT»2,HE:PRINT»2,BU*:PRINT#2,TU*: 



VWYYYYYYYyYYYYYYYYYYYE" 

<242> 


PRINT#2,KNlPRINT(*2,XY 

<067> 

60202 

PRINT" (6SPACEI'H"SPC (24) "W" 

<201 > 

51200 

CLOSE 2:CLOSE 15:GOTO 10000 

<142> 

60204 

PRINT" (6SPACE1R ilKCIf l?iS<3SPACE>,r*Tfäir*Tr.s5{2SP 


52000 

OPEN 2,1,2,fl*: GOTO 51100 

< 162> 


ACE)B" 

< 125> 

55000 

INPUT"(2D0WN,8SPACE >FILENAME";N* 

< 135> 

60206 

PRINT"(6SPACEIH ^(7SPACE>-(3SPACE> = (5SPACE>- = 


55005 

PRINT"(3D0WN,7SPACE,RVSONIK(RVOFF >ASSETTE ODER 



(2SPACE5W" 

< 165> 


<SPACE,RVSON >D(RVOFF >ISKETTE?" 

<053 > 

60208 

PRINT" (6SPACE>T? ® ± ± ±ESI(3SPACE>Qtiii ± H(2SP 


55010 

GET A*:IF A*=“D"THEN 56000 

< 196> 


ACE »ST 

< 119> 

55012 

IF A*="K“THEN 57000 

< 142> 

60210 

PRINT“(6SPACEJH a = ^(3SPACE>-(3SPACE)c(5SPACE 


55014 

GOTO 55010 

<064> 


»= ^(2SPACEJS"' 

<099> 

56000 

OPEN 2,8,2,N*+”,S,R":GOTO 58000 

< 118> 

60212 

PRINT" (6SPACEIH B»+ +.«+ n(3SPACF>B»+.+ ifiW(2SP 


56001 




ACEJH" 

<251 > 


ILE 56000 NUR FUER DISKETTE 

<228> 

60214 

PRINT"(6SPACEJH -(5SPACE)- -(3SPACE>3<7SPACE) = 


56100 

FOR Z=1 TO 2:FOR X=1 TO 4:FOR Y=1 TO 4:INPUTH2 



<2SPACE>W" 

< 173> 


* PL (Z , X, Y) 

<156> 

60215 

PRINT"(6SPACESW e ±£± ± U(3SPACE>B ± ±££ U(2SP 


56101 

INPUTW2,PR < Z,X,Y):NEXT:NEXT:NEXT 

< 108 > 


ACE>ff” 

< 193> 

56110 

INPUT#2,HA,HB,TI*,PZ,PX,PY 

<150> 

60216 

PRINT" (6SPACEJH = c;(5SPACE>-(3SPACE>- - = H =( 


56111 

INPUT#2,KO,W, WZ ,DR, DZ ,BU 

<053> 


2SPACE>W" 

<055> 

56112 

INPUT#2,BE,HE,BU,TU*,KN,XY 

< 139 > 

60217 

PRINT" (65PACE>H '?&£££ EW(3SPACE>TifsF ES2(2SP 


56120 

CLOSE 2:CLOSE 15:GOTO 10000 

<217> 


ACE5TJ" 

<217> 

57000 

OPEN 2,1,0,N*:GOTO 56100 

<109> 

60218 

PRINT" (6SPACE)H"SPC(24> "TJ":PRINT" (6SPACE> (.p-pW 


57999 

REM ***************************** 58 



•p*p~p~p~p~p~p*p~p~ p~p' p'p'p'p'p~p~p~p~p(?. 1 ‘ 

<222> 


000-59999 NUR FUER DISKETTE 

<137> 

60220 

FOR A=1 TO 3000:NEXT:PRINT"(CLR,3D0WN,2SPACE>D 


58000 

OPEN 15,B,15:INPUT#15,A,A*:IF A*="OK"THEN 5610 



ER PLAN HAT SICH IN LUFT AUFGELOEST" 

< 151 > 


0 

<236> 

60222 

HA=HA-8192:HB=HB—1:FOR A=1 TO 2000:NEXT:GOTO 1 


58010 

IF A*="FILE NOT FOUND"THEN 58100 

<148> 


0000 

<253> 

5B020 

IF A*= "DRIVE NOT READY"THEN 58111 

<243> 

60300 

POKE 53281,0:PRINT"<CLR,3D0WN t GREY 2,2SPACE>DE 


58030 

IF A*="FILE TYPE MISMATCH"THEN 58120 

<213> 


R DRACHE HAT SIE GEFRESSEN" 

<196> 

58050 

PRINT AS:END 

<092> 

60310 

POKE VC+21,0:POKE VC+17,PEEK(VC+17)OR 16:P0KE 


58100 

PRINT"(2D0WN.SPACEJEIN FILE DIESES NAMENS EXIS 



650,0 

<095> 


TIERT NICHT“ 

<135> 

60315 

PRINT,"(2D0WNJZEIT: .MID*(TI*,3, 


58110 

INPUT"t2D0WN,9SPACE>FILENAME";N*:G0T0 58200 

< 123> 


2) ":”MIDS(TIS,5) 

<049> 

58111 

PRINT"(2DOWN,45PACE»DISKETTE EINLEGENPRINT, 


60320 

PRINT”(2DOWN,SPACEJNOCH EIN VERSUCH (J/N)?" 

<005> 


"C2DDWN,3SPACE >FERTIG?“ 

<0i0> 

60325 

GET AS:IF AS="J"THEN RU=l:GOTO 0 

<036> 

58112 

GET X*:IF XT=""THEN 58112 

<223> 

60326 

IF AS=“N"THEN POKE 650,0:END 

< 180> 

58113 

UUIU DÖ11WJ <108> 

LI. <«*• 

GOTO 60325 

<027> 

58120 

PRINT"C2D0MN,5SPACE>KEIN DATEN-FILE!":GOTO 581 


60330 

POKE 53281,0:PRINT"<CLR,2D0WN,GREY 2,D0WN,SPAC 
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< 173> 


E>DER FEUERSPEIENDE DRACHE HAT SIE(9SPACE>GET0 


58158 

PRINT AS:STOP 

<217> 


ETET" 

<101> 

58200 

CLOSE 2:CLOSE 15:GOTO 56000 

<011> 

60331 

GOTO 60310 

<025> 

59000 

CLOSE 2:CLOSE 15:IF AS="WRITE PROTECT ON"THEN 


60400 

PRINT"{HOME,SPACE>DER DRACHE HAT DAS GIFT GEFR 



59100 

< 127> 


ESSEN"," UND SICH IN LUFT AUFGELOEST" 

<013> 

59010 

IF A*="DRIVE NOT READY"THEN 59200 

<213> 

60410 

P=P—16384:PI=P1—512:PR(PZ,PX,PY)=P1:PL(PZ,PX,P 


59030 

IF A*="FILE EXISTS"THEN S9300 

<010> 


Y)=P:POKE VC+21,0 

<027> 

59040 

IF A*=”FILE TYPE MISMATCH"THEN 59400 

<205> 

60411 

DR=0:GOTO 10230 

<023> 

59050 

PRINT AS:STOP 

<0B8> 

60500 

IF KO*= "SIMSALAKADABRA-ABRAKABUM"THEN 60550 

<201 > 

59060 

GOTO 50000 

<024> 

60510 

POKE 53281,0:POKE VC+21,0 

<019> 

59100 

PRINT"{2D0WN,SPACE>DIESE DISKETTE IST SCHREIB- 


60512 

PRINT"(CLR,3D0WN,GREY 2,2SPACE>DER ZAUBERER HA 



GESCHUETZT" 

< 171 > 


T SIE IN EINE MAUS“,“(3SPACE>VERWANDELT":GOTO 


59110 

PRINT" BITTE EINE ANDERE DISKETTE EINLEGEN":PR 



60310 

<151> 


INT,"(DOWNJFERTIG?" 

<233> 

60550 

FOR A=0 TO 127 STEP 3:POKE 832+A,0:POKE B33+A, 


59120 

GET XS:IF XS=""THEN 59120 

<210> 


0:PDKE 834+A,0:POKE VC+5,PEEK(VC+5>+2 

<046> 

59130 

GOTO 51000 

<095> 

60552 

NEXT:POKE VC+21,4:F0R A=0 TO 63:P0KE B32+A,SP( 


59200 

PRINT“(2D0WN,4SPACE>DISKETTE EINLEGEN!“:PRINT, 



11,A>:NEXT 

<188> 


"(DOWN,SPACE 3FERTIG?":GOTO 59120 

<003> 

60553 

POKE VC+23,0:POKE VC+29,0 

<235> 

59300 

PRINT“<2D0WN>EIN FILE DIESES NAMENS EXISTIERT 


60554 

POKE VC+1,170:POKE VC+21,5:P1=P1-1024:PR(PZ,PX 



BEREITS" 

<212> 


, P V) =P 1: P=P+8: PM= 170 

< 191 > 

59310 

PRINT" SOLL ES UEBERSCHRIEBEN WERDEN (J/N)?" 

<102> 

60556 

PL(PZ,PX,PY)=P:FOR A=150 TO 0 STEP-.5:P0KE VC, 


59320 

GET X*:IF X*="J"THEN N*="®0:“+N*:GOTO 51000 

<203> 


A:PM=PM+.1:POKE VC+1,PM:NEXT 

<0B9> 

59330 

IF X*="N"THEN 50000 

< 144> 

60558 

FOR A=1 TO 2000:NEXT:GOTO 10000 

<245> 

59340 

GOTO 59320 

<063> 

60590 

POKE 532B1,0:PRINT"(CLR,3D0WN,GREY 2,SPACE>SIE 


59400 

PRINT"<2D0WN,SPACEJDIESER NAME IST VON EINEM A 



HABEN SICH IN EINE MAUS VERWANDELT":GOTO 6031 



NDEREN"," FILE-TYP BELEGT" 

<135> 


0 

<018> 

59410 

FOR A=1 TO 2000:NEXT:GOTO 50000 

< 121 > 

60600 

A1*="MITNEHMEN":IF LEFT*(KO*,7)="VERJAGE"THEN 


59999 

REM »«HMHMMUM»***»**#****#»#****** 

< 154> 


A1*=“VERJAGEN“ 

<083> 

60000 

POKE 53281,0:PRINT"<GREY 2,CLR,3D0WN,RIGHT>DAS 


60601 

PRINT"(CLR,3D0WN,GREY 2,SPACE>DER KOBOLD WOLLT 



MAGISCHE BUCH IST IN FLAMMEN","AUFGEGANGEN" 

<02B> 


E SICH NICHT ";A1S 

<187> 

60001 

PRINT“(DDWN,RIGHT»LEIDER HABEN SIE DABEI EBENF 


60602 

PRINT" LASSEN UND HAT SIE IN EINEN ZWERG VER-" 



ALLS FEUER","GEFANGEN":GOTO 60310 

<010> 


,"ZAUBERT":HB=0 

<208> 

60010 

PRINT"(CLRJ","(2D0WN»SIE HABEN:(3DOWN3":POKE V 


60604 

FOR A=1 TO 2000:NEXT:PL(PZ,PX,PY> =PL(PZ,PX,PY) 



C+21,0 

<213> 


OR HA:HA=0:XY=2:GOTO 10000 

<060> 

60020 

FOR A=0 TO 14:IF HA AND 2tA THEN PRINT,DI*(A>“ 


60610 

PR(PZ,PX,PY—1>«PR(PZ,PX,PY—1>OR 2:P1=P1 OR 8:P 



<DOWN>" 

<045> 


R(PZ,PX,PY)=P1:KN=1 

< 197> 

60021 

NEX T:PRINT,“<2D0WN,SPACE >FERT10?“ 

<0/0> 

60612 

PL(PZ,PX,PY)=P—32:PRINT"(5UP>"; 

<041 > 

60025 

IF PEEK(203)=64 THEN 60025 

<086> 

60614 

FOR A=1 TO 5:PRINT"(3BSPACE>":NEXT 

<003> 

60030 

GET AS:GOTO 30000 

<036> 

60616 

POKE 214,10:PRINT:PRINT," ":GOTO 10060 

<063 > 

60040 

POKE 53281,0:PRINT"(CLR,GREY 2,2DOWN,SPACEJSIE 


63900 

POKE 53281,12:P0KE VC+21,0:PRINT"(CLR,2D0WN,RI 



HABEN SICH VERGIFTET" 

<226> 


GHT >"CHR*(14),"SAS ZAUBERSCHLOSS“ 

<039> 

60041 

GOTO 60310 

<246> 

63901 

IF HE>9 AND(P AND 1)=0 AND(HA AND 1)=0 THEN PO 


60050 

PRINT"(HOME,2SPACEIDIE WAECHTER HABEN SICH UM 



KE 53281,0 

< 146> 


DAS GOLD“ 

<1B2> 

63905 

PRINT”(BLACK,2D0WN.2RIGHT»SEIT LANGER, LANGER 


60055 

PRINT" GESTRITTEN UND SICH DABEI ERSCHLAGEN":P 



ZEIT IST ES älTTE," 

<047> 


OKE VC+21,0 

< 121 > 

63910 

PRINT" (UP,SPACEJDASS DER, DER DIE .«RONE DES SB 


60060 

W=0:WZ=0:PR(PZ,PX,PY)«Pl-256:GOTO 10050 

<064> 


ICHES " 

<074> 

60070 

PRINT" DIE FACKEL HAT DAS BUCH VERBRANNT":HA=H 


63915 

PRINT" BESITZT, DAS GANZE .LAND REGIERT." 

<254> 


A—64:HB=HB-1:GOTO 10430 

<024> 

63920 

PRINT" SOCH SEIT VIELEN HUNDERT JAHREN RE-“ 

<050> 

60100 

IF DI*="MESSER"AND(HA AND 2561=256 THEN 60120 

< 115> 

63921 

PRINT" GIERT DER SCHRECKLICHE ZAUBERER, UND" 

<056> 

60101 

IF DI*="GIFT"AND(HA AND 163841=16384 THEN 6012 


63923 

PRINT" <2SPACE>KEINER VON DENEN, DIE IHM DIE JCR 



5 

<166> 


ONE " 

<081 > 
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Zauberschloß 


63926 PRINT” WIEDER ENTREISSEN WOLLTEN IST JE" 

<240> 


63930 PRINT" WIEDER ZURUECKGEKEHRT.",," Ä*S SCHLOSS 


n 

IST STRENG BEWACHT," 

<049> 

*T 

63931 PRINT" UND DIE SEMEINHEIT DER HAECHTER WIRD" 

< 141 > 


63932 PRINT" NUR VON IHRER GELDGIER UEBERTROFFEN.“ 

< 1 08 > 


63933 PRINT" UEBERALL LAUERN £ALLEN UND VIELERLEI"," 



GEFAHREN.” 

<062> 


63936 PRINT,”{2D0WN,3LEFT>51MSALAKADABRA-ABRAKABUM" 

<222> 


63940 PRINT,"<2DDWN>£ERTIG?" 

< 104 > 


63950 GET X*:IF X*=""THEN 63950 

<201 > 


63955 POKE 53281,9: PRINT CHR*<142):GOTO 10000 

<001 > 

T5-^än/A«lL tTw^M 

63970 IF PZ>0 THEN 63980 

<162> 


63971 POKE 53281,0:PRINT"<OREY 2,CLR,3D0WN,3RIGHT>DI 


v * 'VURm/ •»\L ^ 

E WACHE FREUT SICH, DASS SIE VON" 

< 176> 

fi m 

63972 PRINT"<3SPACE>SELBST IN DEN KERKER GEGANGEN SI 



ND" 

<035> 

» 

63973 PRINT“(2DQWN,2SPACEISCHADE, DASS SIE NUN BIS Z 


AjTV -■ Hr 

UH ENDE" 

< 164> 


63974 PRINT"C2SPACE)IHRES LEBENS DORT BLEIBEN MUESSE 


‘ v * *•* 

N " 

< 058 > 

^ 1 1, 

63975 PRINT"C2SPACEJUND NICHT MEHR WEITER SPIELEN KO 


v —in 

ENNEN":GOTO 60310 

<241 > 

jytf •v* 

63980 IF PZ<3 THEN 63983 

< 180 > 

jy IblZlFi; _. 

63981 POKE 53281,0:PRINT"{GREY 2,CLR,2D0WN,SPACE>SIE 


^ ‘‘"iNf' '■ r-' j 

SIND AUF DAS DACH GEKLETTERT," 

<058> 


63982 PRINT" ABGERUTSCHT,IN DEN GRABEN GEFALLEN":PRI 


" tSwiu) r / ■' 1 • / 

NT" UND ERTRUNKEN":GOTO 60310 

<000> 

‘ *Y ' —"Sr 

63983 IF PXO0 THEN 63985 

<101> 


63984 POKE 53281,0:PRINT"<CLR,DOWN,GREY 2,SPACE)DIES 


liiT K JlTlUMfiIVi u \S' 

E TUER FUEHRT IN DEN WASSERGRABEN": GOTO 60310 

<0B9> 


63985 IF PR(PZ,PX,PY> >0 THEN 10000 

<052> 

!?• iL’*■ J) 1 

63986 IF PZ=1 THEN 63989 

< 189 > 


63987 POKE 53281,0:PRINT"CCLR,GREY 2,3D0WN,SPACE>DIE 



TUER FUEHRTE INS FREIE. SIE SIND" 

<014> 


63988 PRINT" AUS DEM ZWEITEN STOCK GESTUERZT":GOTO 6 


>r v ^ 

0310 

< 1B9> 


63989 IF TU*="0"THEN 63992 

<063> 


63990 PX=4:PRINT"C4UP3SIE SIND GEGEN DIE TUER GELÄUF 



EN":A*="":GOTO 31000 

<242> 


63992 PRINT"<CLR>","<GREY 2,2D0WN,SPACE>SIE SIND IM 


^ //v \ \ j 

FREIEN" 

<233> 

txVHPOBKv/, " . 'v v° i \ 

63994 IF HA AND 8 THEN 40000 

< 137> 

uh. i^wniiSr ™L . \ w - \ffif %lw ( 

63995 POKE 53281 , 0:PRINT"{DOWN,SPACE > WEIL SIE DAS LA 


nur 5*i j •* « . -v *\ •* v 'j y 

ND NICHT BEFREIT HABEN," 

<028> 

1\P' ~ * | - ' \Zj 

63996 PRINT" HAT DIE WUETENDE MENGE SIE VERPRUEGELT" 


‘ --" ^ T 

:GOTO 60310 

<065> 

» ' J&S's %/määO/ 

Listing »Zauberschloß« (Schluß) 




s*»eR 

orun&~” 









> ■ ■ 





■■■■■^1 
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Checksummer 


Neuer Check¬ 
summer 64 — 
blitzschnell 
und kürzer 

Der Checksummer überprüft jede ein¬ 
gegebene Basic-Zeile und erspart Ih¬ 
nen deshalb eine langwierige Fehler¬ 
suche. Und neu ist der Checksummer, 
weil die Initialisierung zirka einhun- 
dertmal schneller ist als die alta 

Der Checksummer 64 ist ein kleines Maschinenprogramm, 
das, wenn es aktiviert ist, Sie sofort davon unterrichtet, ob Sie 
die jeweilige Programmzeile korrekt eingegeben haben. 

1. Tippen Sie den Basic-Lader sorgfältig ein. Es gibt zwei Ver¬ 
sionen: Eine für den Commodore 64 und eine für den VC 20. 

2. Bevor Sie »RUN« eingeben, speichern Sie den Basic-Lader 
bitte erst ab, denn wenn Sie zum Beispiel einen Fehler bei den 
eingetippten POKE-Anweisungen gemacht haben, ist es mög¬ 
lich, daß der Rechner aussteigt. Heben Sie sich den abgespei¬ 
cherten Checksummer 64 auf—Sie werden ihn immer wieder 
brauchen, wenn Sie ein Basic-Programm aus dem 64'er eintip¬ 
pen wollen. 

3. Nach Initialisierung des Maschinenprogramms ist der 
Checksummer 64 aktiviert. Er steht innerhalb des Betriebssy¬ 
stems und verbraucht kein einziges Byte Speicherplatz. Es sei 
hier für Interessierte gesagt, daß selbst alle Sprungvektoren 
unverändert bleiben, das Programm also mit einer Vielzahl von 
Programmier-Spracherweiterungen problemlos zusammenar¬ 
beitet. Achten Sie aber darauf, daß bestimmte Spracherweite- 
rungen das hinter dem ROM liegende RAM für Hires-Grafiken 
benutzen. Wird zum Beispiel eine Hires-Grafik von Simons Ba¬ 
sic aus angesprochen, so wird der Checksummer 64 zerstört. 

4. Wenn Sie den Checksummer 64 zwischenzeitlich nicht be¬ 
nutzen, können Sie ihn jederzeit mit »POKE 1, 55« desaktivie- 
ren. Auch durch Drücken der Run-Stop- und der Restore-Taste 
wird der Checksummer 64 desaktiviert. Wollen Sie, daß der 
Checksummer 64 auch noch nach Drücken dieser Tasten¬ 
kombination erhalten bleibt, so geben Sie bei aktiviertem 
Checksummer 64 »POKE64982.53« ein. Der Checksummer 
64 ist dann nur durch »POKE1, 55« abschaltbar. 

Wollen Sie den Checksummer 64 wieder einschalten, so 
geben Sie bitte »POKE 1, 53« ein. 

Das Maschinenprogramm bleibt solange erhalten, bis der 
Computer ausgeschaltet, oder wenn von anderen Program¬ 
men auf das hinter dem ROM liegende RAM zugegriffen wird. 

5. Eine Checksumme wird nur dann ausgegeben, wenn der 
Commodore 64 (VC 20) eindeutig erkennt, daß Sie eine Zeile, 
bestehend aus der Zeilennummer und zumindestens einem 
alphanumerischen Zeichen, eingegeben haben. Ansonsten 
reagiert der Commodore 64 normal. 

Hinweis: Wenn Sie bei aktivertem Checksummer 64 ein 
Programm mit »LOAD« in den Speicher holen, wird auch eine 
Checksumme ausgegeben. Dies liegt jedoch an rechnerinter¬ 
nen Routinen und hat keine weitere Bedeutung, stellt insbe¬ 



sondere keine Gefahr für das geladene Programm dar, da alle 
Pointer richtig gesetzt werden. 

Nach Eingabe von RUN wird zunächst einmal das ROM in 
das RAM des Commodore 64 verschoben, wonach der Basic- 
Interpreter modifiziert wird. Dadurch hat man den Vorteil, trotz 
einer zusätzlichen Routine das gesamte RAM des Rechners 
zur Verfügung zu haben. Nach ordnungsgemäßem Ablauf des 
Programms können Sie sofort mit Eingaben beginnen. Für 
Maschinensprache-Spezialisten: die Einschaltmeldungen des 
Rechners werden nur nach einem Reset generiert. Der Text¬ 
bereich, in dem die Meldung steht, wird von dem erzeugten 
Maschinenprogramm überschrieben. 

Alle veröffentlichten Listings sind mit einer Checksumme 
versehen, die am Ende jeder Programmzeile steht. Diese 
Checksumme steht zwischen <und>. Sie wird beim Ein¬ 
tippen des Programms nicht mit eingegeben. Die Zahl zwi¬ 
schen den beiden Zeichen stellt lediglich eine Information für 
Sie dar. Wenn Sie diese Checksumme dennoch mit eintippen, 
werden Sie schnell bemerken, daß Sie etwas falsch gemacht 
haben. Bei aktiviertem Checksummer 64 wird nämlich nach 
Eingabe einer Basic-Zeile, die mit Return beendet wird, in die 
linke obere Bildschirmecke die Checksumme eingeblendet, 
die mit der Summe aus dem veröffentlichten Listing überein¬ 
stimmen muß. Ist das nicht der Fall, haben Sie die Zeile anders 
eingegeben, als sie im Listing dargestellt ist. Vergessen Sie al¬ 
so bitte nicht, daß die am Ende einer Zeile zwischen < und 
> stehende Prüfsumme nicht mit eingegeben werden darf. 

Der Checksummer 64 ist so ausgelegt, daß er abhängig von 
der Zeilennummer und dem Text der Zeile eine Checksumme 
ausgibt. Beim Bilden dieser Checksumme werden Spaces 
(Leertaste) überlesen, was für Sie bedeutet, daß es egal ist, 
wieviel Leerzeichen Sie zwischen den Worten lassen, da sie 
für den Programmablauf ohnehin keine Bedeutung haben. 
Abei ,v. inchmal ist das richtige Setzen von Leerzeichen doch 
wichtig, besonders innerhalb von Strings (Zeichenketten), die 
gedruckt werden sollen. Seien Sie deshalb besonders genau 
bei Leerzeichen, die innerhalb von Anführungszeichen ste¬ 
hen, denn meistens ermöglichen nur die richtig gesetzten 
Spaces eine sinnvolle Textausgabe auf dem Bildschirm. 

Beachten Sie auch, daß es durchaus erlaubt ist, Abkürzun¬ 
gen für die Commodore-Befehlswörter zu verwenden. So führt 
die Eingabe von »?« als Kurzschreibweise für »PRINT« nicht et¬ 
wa zu einem Checksummen-Fehler, sondern wird korrekt ver¬ 
arbeitet und dementsprechend die Checksumme generiert. 
Zahlendreher werden allerdings nicht erkannt. Eine 320 in der 
DATA-Zeile ergibt also dieselbe Prüfsumme wie 230! Nach¬ 
dem Sie ein Listing eingegeben haben, sollten Sie es aus Si¬ 
cherheitsgründen vordem Starten abspeichern. Sie brauchen 
hierfür jedoch nicht den Checksummer 64 zu desaktivieren. 

Wichtiger Hinweis für alle Listings in 
unseren Heften! 

Um Ihnen die Eingabe unserer Listings zu erleichtern, gibt 
es weder Steuerzeichen noch andere Grafikzeichen. Sie wer¬ 
den ersetzt durch Klartext. In der Tabelle finden Sie die Erklä¬ 
rung der übersetzten Steuerzeichen. 

Beispiel 1: 

In einem Listing sehen Sie folgende Zeile: 


100 PRINT"CCLR,13SPACE,RVS0N>CHECKSUMMER 6 

4 tRVOFFJ" <025> 


Dann dürfen Sie weder die geschweiften Klammern eintip¬ 
pen (es gibt sie eh nicht auf der Tastatur) und auch nicht die 
Wörter CLEAR, 13SPACE, RVSON oderRVOFF, sondern Sie 
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müssen die diesen Wörtern zugeordneten Tasten drücken. In 

der Tabelle sehen Sie zum Beispiel für 

CLEAR = Shift-Taste und 2. Taste ganz rechts oben. 

Gemeint ist also, daß Sie anstelle des Wortes CLEAR die Ta¬ 
ste CLR/HOME drücken müssen, gefolgt von 13maligem Be¬ 
tätigen der Leertaste (13SPACE) und so weiter. Auf Ihrem Bild¬ 
schirm erscheint dann als erstes ein revers dargestelltes Herz. 
Entsprechendes gilt für alle anderen Wörter innerhalb der ge¬ 
schweiften Klammern. 

Beispiel 2: 

In manchen Listings tauchen ganz seltsame unterstrichene 
und manchmal auch überstrichene Zeichen auf, zum Beispiel: 


130 PRINT 


<218> 


Das unterstrichene U bedeutet, daß Sie die Shift-Taste und 
die Taste U drücken müssen. 

Der überstrichene Stern bedeutet, daß Sie die Commodore- 
Taste und die Taste mit dem Stern drücken müssen. Das Zei¬ 
chen davor ist nicht etwa ein unterstrichenes kleines f, son¬ 
dern ein unterstrichenes Pfund-Zeichen (Sie drücken deshalb 
die Shift-Taste und die 3. Taste oben rechts). 

Also, unterstrichen bedeutet Shift-Taste und den entspre¬ 
chenden Buchstaben (oder Zeichen), überstrichen bedeutet 
die Commodore-Taste und den entsprechenden Buchstaben 
(oder Zeichen). Auf dem Bildschirm sollten Sie dann natürlich 
die zugehörigen Grafik-Zeichen sehen. 

Die beiden Programm-Zeilen von oben sehen später (auf 
dem Drucker oder ähnlich auf dem Bildschirm) so aus: 



CTRL steht für Control-Taste, so bedeutet [CTRL-A], 
daß Sie die Control-Taste und die Taste »A« drücken 


100 print'' n 
130 PRINT" /- 


SCHECKSUMMER 64B" 


(F. Lonczewski/gk) 


REM ******************************* 

< 175> 

REM * 


* 

<247> 

REM * 

CHECKSUMMER 64 

* 

< 162> 

REM * 


* 

<004> 

REM * 

(VERSION 2.0) 

* 

<014> 

REM * 


* 

<011> 

REM * 

64'ER 

* 

<061 > 

REM * 


* 

<031 > 

REM * 

COMMODORE 64 

* 

<056> 

REM * 


* 

<051 > 

REM *************************** 


<255> 


100 PRINT"<CLR,13SPACE,RVSON>CHECKSUMMER 6 
4tRV0FF>" 

110 PRINT 

121 SA=820:FOR I=SA TO SA+6:READ AsPOKE I, 
A:NEXT I 

122 DATA 133,95,134,96,76,191,163 

130 POKE 88,0:POKE 89,192:P0KE 90,0:POKE 9 
1,192sPOKE 780,0:POKE 781,160:SYS SA 
140 POKE 88,0:POKE 89,0:POKE 90,0:POKE 91, 
0:POKE 780,0:POKE 781,224:SYS SA 
150 POKE 1,53:POKE 42289,96:POKE 42290,228 
160 FOR 1=58464 TO 58554:READ A:POKE I,A:N 
EXT I 

190 PRINT"I4D0WN,9SPACEJCHECKSUMMER AKTIVI 
ERT." 

200 PRINT"{2DOWN5AUSSCHALTEN : P0KE1,55" 
210 PRINT"{DOWN!ANSCHALTENI2SPACEJ: POKE1, 
53":NEW 

320 DATA 160,2,169,0,133,2,177,95 
330 DATA 240,15,201,32,208,3,200,208 
340 DATA 245,24,101,2,133,2,76,110 
350 DATA 228,192,4,48,241,198,214,165 
360 DATA 214,72,162,3,169,32,157,1 
370 DATA 4,189,183,228,32,210,255,202 
380 DATA 16,242,166,2,169,0,32,205 
390 DATA 189,169,62,32,210,255,104,133 
400 DATA 214,32,108,229,169,141,32,210 
410 DATA 255,76,128,164,92,72,32,201 
420 DATA 255,170,104,144,1,138,96,9 
430 DATA 60,18,19 


<025> 

<007> 

<073> 

<179> 

<244> 

<039> 

<001 > 

< 100 > 

<247> 

<050> 

< 171 > 

< 103> 
<239> 

< 153> 
<090> 

< 191 > 
<096> 
<206> 

< 168> 
<168> 
<093> 
<051 > 
<195> 


müssen. Im folgenden steht: 

(DOWNJ Taste neben rechtem Shift, Cursor unten 

(UP] Shift-Taste 8 Taste neben rechtem Shift. Cursor hoch 

(CLR] Shift-Taste 8 2. Taste ganz rechts oben 

(INC-, Shift-Taste 8 Taste ganz rechts oben 

(HOME) - 2. Taste von ganz rechts oben 

(DEL) Taste ganz rechts oben 

(RIGHT] Taste ganz rechts unten 

(LEFTj Shift-Taste 8 Taste unten rechts 

(SPACE] Leertaste 

(Fl ] grauer Tastenblock rechts 

[F3] grauer Tastenblock rechts 

[F5] grauer Tastenblock rechts 

(F7) grauer Tastenblock rechts 

(F2j grauer Tastenblock rechts 8 Shift 

(F4) grauer Tastenblock rechts 8 Shift 

(F6) grauer Tastenblock rechts 8 Shift 

(F8) grauer Tastenblock rechts 8 Shift 

(RETURN] Shift-Taste 8 Return 

(BLACK] Control-Taste 8 1 

(WHITE) Control-Taste 8 2 

(RED) Control-Taste 8 3 

(CYAN] Control-Taste 8 4 

(PURPLE) Control-Taste 8 5 

(GREEN] Control-Taste 8 6 

(BLUE) Control-Taste 8 7 

(YELLOW) Control-Taste 8 8 

(RVSON) Control-Taste 8 9 

(RVOFF) Control-Taste 8 0 

(ORANGE] Commodore-Taste 8 1 

pROWN] Commodore-Taste 8 2 

(UG.RED) Commodore-Taste 8 3 

(GREY 1) Commodore-Taste 8 4 

(GREY 2] Commodore-Taste 8 5 

(LIG.GREEN) Commodore-Taste 8 6 

(LIG.BLUE] Commodore-Taste 8 7 

(GREY 3] Commodore-Taste 8 8 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuerzei¬ 
chen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise er¬ 
kennen. Der zu dem jeweiligen Steuerzeichen gehörende Klartext ist 
so verfaßt, daß Sie leicht die Taste beziehungsweise die Tastenkombi¬ 
nation finden, die Sie drücken müssen. 


Der Ckecksummer64 zum Eintippen der Listings 


Die Bedeutung der Klartextanweisungen 
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Adventure 2000 




TFV.-.5 


Listings 


Adventure 
2000 — Die 
Jagd nach der 
Rakete 

Vom Präsidenten der Vereinigten Staa¬ 
ten erhalten Sie den Auftrag, den drit¬ 
ten Weltkrieg zu verhindern. 

Die Idee eines Adventures ist, mit dem Computer zu kom¬ 
munizieren. Viele Adventures tun das mit Hilfe von Zwei-Wort- 
Befehlen. So hat »GEHE TUER« den Effekt vom Verlassen 
eines Raumes durch eine Tür. 

Einige Adventures haben Mehr-Wort-Eingaben (The Hob- 
bit), die ein komfortables »Gespräch« mit dem Computer er¬ 
möglichen. 

Auch Adventure 2000 versteht Mehr-Wort-Eingaben. Man 
kann Begleiter, bestimmte Signal- und Bindewörter auf einmal 
eingeben, ohne den Satz groß verstümmeln zu müssen. Zum 
Beispiel: »Nimm den Schlüssel dann stecke den Schlüssel in 
das Schlüsselloch dann öffne die Türe und gehe durch die 
Türe« wird von den in Adventure 2000 verwendeten Routinen 
rasch bearbeitet. 

Durch Eingabe von »BEFEHLE« listet der Computer alle 
Verben auf, die er versteht. 

Durch Kombination der Verben mit den verwendeten 
Nomen und Verkettung durch »und« oder »dann« kann man 
versuchen, der Lösung näher zu kommen. 

Zugegeben — das scheint kompliziert. Man lernt jedoch 
den Umgang am besten, indem man einfach ausprobiert, was 
der Computer verarbeitet. Zudem braucht man von jedem 
Verb oder Nomen nur die ersten drei Buchstaben einzu¬ 
geben, den Rest erledigt der Computer. Achtung! Signal¬ 
wörter wie »dann« und »und« müssen immer ausgeschrieben 
werden. 


Was ist die Aufgabe beim Adventure 2000? 

Die eigentliche Aufgabe wird erst im Verlauf des Spiels ge¬ 
stellt. 


Was passiert? 

Nachdem das Programm mit »RUN« gestartet wurde, er¬ 
scheint das Titelbild und der Computer liest Daten ein und 
setzt die Variablen fest. Dann wird der Bildschirm gelöscht 
und Sie finden sich im Raum wieder. 

Beim Betreten eines Raumes wird in der ersten Zeile immer 
angegeben wo man sich befindet. Links wird die Grafik des 
entsprechenden Raumes gezeigt und rechts was sich im 
Raum befindet und welche direkten Ausgänge es gibt. 

Sind keine direkten Ausgänge angegeben, so bleibt es dem 
Kombinationsvermögen des Spielers überlassen, andere zu 


finden. Unter der Grafik erscheint dann: Was gedenkst du zu 
tun? Darauf kann die Eingabe erfolgen, die — wie der Spieler 
denkt — zum Erfolg führt. 


Wie »antwortet« der Computer auf die Eingabe? 

Der Computer überprüft die Eingabe und gibt — falls erfor¬ 
derlich — aus, daß er nicht weiß, wovon die Rede ist (wenn 
falsche Worte verwendet wurden). 

Wenn der Computer in der Lage ist, die Eingabe auszufüh¬ 
ren, erscheint das Ergebnis auf dem Bildschirm. 

Zum Beispiel führt »NIMM MAPPE« zur Meldung »IN ORD¬ 
NUNG, WIR TRAGEN NUN EINE MAPPE BEI UNS«. 


10 

- 52 

Titelbild ausdrucken 

60 

- 90 

Adresse des Autors 

100 


Felder festsetzen 

114 


Aufruf der Grafikunterroutine in 10000 

120 

- 154 

Hier immer, wenn Raum betreten 

157 


Aufruf der Eingaberoutine in 400 

158 

— 280 

Eingabe (ersetzt INPUT, um verbotene Zeichen zu 
verhindern 

290 

- 380 

Unterprogramm Eingabe erkennen und bearbeiten 

400 


Unterprogramm in 2000 anspringen 

401 

— 510 

Erstellen der aktuellen Eingabe aus zwei Worten, 
Zurückweisen falscher Wörter, feststellen des 
aktuellen Verbs 

510 


springe in den Programmteil, der sich mit 
aktuellem Verb befaßt 

520 

— 1620 

Zwei- und Mehr-Wort-Kommandos 

20' J 

— 2100 

Überprüfe »Umwelt«, erhöhe Variablen, setze 



Wachen in Räume etc. 

2110 

— 2220 

Erkenne und ersetze verschiedene Verben 

2230 

— 2410 

Ein-Wort-Kommandos werden abgeschaltet 

9000 

— 9130 

Anweisungen 

9140 

— 9190 

Sie haben gewonnen! 

10000 

—13880 

Definition der Raumbilder 

12880 

— 13911 

Einlesen der Daten 

13920 

— 14170 

Daten 

14180 


Verzögerungsschleifen 

14370 

— 14400 

Leider verloren 


Aufschlüsselung des Listings »Adventure 2000« nach 
Zeilennummern 



aas? 
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Listings 


Adventure 2000 


Was tun, wenn der Computer »abstürzt«? 

Sollte man alle erlaubten 100 Zeichen der Eingabe mit 
Mühe gefüllt haben und dann mit Schrecken feststellen, daß 
der Computer nur noch ausgibt: »Wovon sprichst du?« oder 
»Ich verstehe dich nicht!«, dann kann man ihn mit der Fl-Taste 
wieder zum »Was gedenkst du zu tun?« zurückholen. 

(Frank Schmelzer/rg) 


Listing »Adventure 2000«. Beachten Sie bei der Eingabe 
bitte den Checksummer. 


10 PRINT"<CLR,BLACK!":POKE 53280,9:P0KE 53 
281,6:PRINT CHR*( 8 ):PRINT CHR*(142):PRI 
NT"<CLR >"5 <002> 

14 PRINT"eilSPACE>FRANK SCHMELZER{DOWN,14L 

EFT,RIGHT,LEFTIPRAESENTIERT:" <059> 

18 PRINT" {7D0WN,4SPACE>'Fp'ppp {4SPACE> p - pp - pp 't 

4SPACEJFpWp - {4SPACEVpVpVp - " <018> 

20 PRINT"{3SPACE>HC4SPACE>KL{2SPACE>14{4SHI 
FT-SPACE >üi<2SHIFT-SPACE>M{4SHIFT-SPACE 
>J4i.{2SHIFT-SPACE>M{4SHIFT-SPACE>Hi." < 145> 

22 PR INT" {3 SPACE>TTT^I4MH14TT^T^mHliTTTTTljl4 

HH+++++1414H" < 149 > 

24 PRINT"{ 8 SPACEIT H+ R{3SPACEIT HT H<3SPA 

CEIT HT H{3SPACEI5F tf" <107> 

25 PRINT” {4SPACE>'p'p'p'pV TTF ff<3SPACEIT<SHIFT 

-SPACE JRTISHIFT-SPACE >H<3SHIFT-SPACEITC 
SHIFT—SPACEIHTCSHIFT-SPACE>H<3SHIFT-SPA 
CE>T R" <104> 

26 PRINT"{3SPACE>14<4SPACE>TM T H<3SPACEIT{ 

SHIFT-SPACEIRTCSHIFT-SPACE >57 {2SPACE,SHI 
FT—SPACE >TCSHIFT—SPACE >RTCSHIFT-SPACE >K 
C3SHI FT-SPACE >T R" <085> 

28 PR I NT " {2SPACEIJ4TTTTT14C2SPACE >T RC3SPACE 
> TCSHIFT-SPACE >RT{SHIFT-SPACE >R{3SHIFT- 
SPACE >T{SHIFT—SPACEIRTCSHIFT-SPACE >R{3S 
HI FT-SPACE>T R" 

30 PRINT"{2SPACEJT R{ 6 SPACE>T R{3SPACE>T{S 
HIFT-SPACE >RT{SHIFT-SPACE >R{3SHIFT-SPAC 
E>T{SHIFT-SPACEIRTCSHIFT-SPACEIRC3SHIFT 
-SPACE>T R" 

32 PRINT" {2SPACEIT L.pVp'p'C2SPACE> + L.'P'P'P + CSH 
IFT-SPACE>RFCSHIFT-SPACE} L.pVpV(SHIFT-SP 
ACE>RT{SHIFT-SPACE>i.?TpT R" <022> 

34 PRINT" {2SPACEJTJ4I4SPACE>ÜR T14C4SPACEI+N 
{SHIFT—SPACEIT14C4SHIFT-SPACE JTMCSHIFT-S 
PACEITHC4SHIFT-SPACE>Tü" <237> 

36 PRINT" {3SPACE>5RR^j4{3SPACE>TT^FFT!4C3SPA 

CE >TTTTTÜ{3SPACE >W+V+'ü " <049> 

40 PRINT"C17UPJ" <166> 

42 PRINT"{3SPACEITT7 TTC2SPACEIT + T+T TbT 

5 T TT{2SPACE>TTT" <240> 

44 PRINT“{3SPACEIT T T T T T TC3SPACEIT.GTC 

2SPACEIT<2SPACEIT T T T T<2SPACE>" <13B> 

46 PRINT"{3SPACEITTT T T T T TV{2SPACEIT£T 

{2SPACEIT{2SPACEIT T TTC2SPACEITT " <121> 

48 PRINT"C3SPACEIT f T T{2SPACEI~ +C3SPAC 
EITÜT{2SPACEIT{2SPACEIT T T={2SPACEITC2 
>y- SPACE!" <049> 

50 PRINT"{3SPACEIT T TTC3SPACEITC2SPACEITT 

f +FT+C2SPACEITI3SPACE>T{2SPACEIT T TTT" <188> 
52 PRINT"{12D0WN, 6 SPACE,RVSON,2SPACEI< C) B 

V F.S. MCMLXXXIV{2SPACEI" <227> 

60 IREM FRANK SCHMELZER <036> 

70 :REM CLOERBRUCHALLEE 5 <144> 

80 :REM 4156 WILLICH 4 <041> 

90 :REM (0 21 56) 61 70 <064> 

100 DIM G*(24,18>,L0*(24>,L0(24,6>,G1*<33> 

,G2*(33),6(33),T(33),V*<18),W*<100) <10B> 

114 GOSUB 10000 <240> 

120 PRINT"CCLR,BLACKIWIR SIND ";LO*(LO) <126> 

130 FOR 1=1 TO 20:PDKE 1104+1,111:POKE 114 

4+18*40+1,119:NEXT <178> 

132 FOR 1=1 TO 18:POKE 1104+40*1,106:POKE 

1104+40*1+21,116:NEXT <1941 

134 PRINT"{H0ME,3D0WN>";:FOR 1=1 TO 18:PRI 

NT SPC(1>;Gf(LO,I):NEXT <110> 

136 PRINT"(HOME,3D0WNI";SPC(22);"HIER SEHE 

ICH: {D0WN,14LEFTIYYVYVVYVYYYYyY" < 156> 

138 FOR 1=1 TO 33:IF G(I)=LO THEN PRINT SP 


S4ER Of 

<047> 


< 177> 


C(22);G1*(I> <024> 

140 NEXT <014> 

150 PRINT:PRINT SPC(22) 5 "RICHTUNGEN:" <229> 

152 FOR 1=1 TO 6 :IF LO(LO,I>>0 THEN PRINT 

SPC(22);R*(I) <127> 

154 NEXT:PRINT"{HOME,22D0WNI"; <247> 

157 GOTO 400 <186> 

158 GOSUB 2000:PRINT"WAS GEDENKST DU ZU TU 

N" 5 :GOSUB 290:GOTO 400 <119> 

200 I$="":POKE 204,0:PRINT"? <127> 

210 GET Z*:IF Z*="”THEN 210 <100> 

220 IF ASC(Z*>=32 THEN GOTO 270 <220> 

225 IF ASC (Z*) =13 AND 1*0" "THEN POKE 204, 

1:PRINT" ":RETURN <235> 

230 IF ASC(Z*)=20 AND I*<>'"'THEN I*=LEFT*( 

I*,LEN(I*)-1):PRINT Z*;:GOTO 210 <149> 

240 IF ASC(Z*)<48 THEN 210 <105> 

250 IF ASC(Z*><65 AND ASC(Z*)>57 THEN 210 <211> 

260 IF ASC(Z*)>90 THEN 210 <121> 

270 IF LEN(I*><100 THEN I*=I*+Z*:PRINT Z*; 

:GOTO 210 <156> 

280 GOTO 210 <0531 

290 GOSUB 200:B1*=I*:L=LEN(B1»):W=1 <1371 

291 IF RIGHT*(Bl*,1)=CHR*(32)THEN B1*=LEFT 

*(Bl*,LEN(Bl*)—1> +"X" <133> 

300 FOR 1=1 TO L:IF ASC(MID*(Bl*,I,1))=32 

THEN W*(W)=LEFT*(Bl*,I—1):W=W+1 <0511 

305 IF ASC(MID*(Bl*,1,1)>=32 THEN B1*=MID* 

(B1*,I+1):L=LEN(Bl*):GOTO 300 <154> 

320 NEXT:W*(W)=B1* <105> 

330 FOR 1=1 TO W:IF W*(I)="DER"OR W*(I)="D 
IE"OR W*(I)="DAS"OR W*(I)="DEN"THEN W* 

( 1 )=“" < 002 > 

340 IF W*(I)="DURCH"OR W*(I)="NACH“THEN W* 

(1)="" <232> 

350 IF W*(I)="UND"OR W*(I)="DANN"THEN W*(I 

)="*" <148> 

360 IF W*(I)=”MIT"OR W*(I)="IN”OR W*(I)="A 

UF"OR W*(I)="AN"THEN W*(I)="+" <249> 

370 NEXT:B1*= ,,M :FOR 1=1 TO W:B1*=B1*+W*(I) 

: IF W*(1)0“"THEN B1*=B1*+" {SHIFT-SPAC 
iHEf • > " <014> 

380 NEXT:B1*=LEFT*(Bl*,LEN(Bl*)-1>:RETURN <173> 
400 Z*="":GET AS:IF AS="{F1I“THEN Bl*="" <030> 

405 IF Bl*=""THEN 158 <243> 

410 FOR 1=1 TO LEN(Bl*):IF MID*(Bl*,I,1)<> 

“*"THEN NEXT:GOTO 440 <054> 

420 BE*=LEFT*(Bl*,1—2) <004> 

430 B1*=MID*(Bl*,1+2):GOTO 450 <0B7> 

440 BE*=B1*:B1*="” <116> 

442 FOR 1=1 TO LEN(BES):IF MID*(BES,I,1)<> 

"+"THEN NEXT:GOTO 450 <12B> 

445 Z*=MID*(BE*,1+2,3):FOR 1=1 TO 33:IF Z* 

=G2*(I)THEN 450 <193> 

446 NEXT:Z*="“ <239> 

450 Z=I:GOSUB 2110:V*=LEFT*(BE*,3) <044> 

460 IF V*="ZUE"OR V*="Z"THEN PRINT"BIS JET 

ZT HATTEN SIE"jZI;"ZUEBE!":GOTO 400 <011> 

464 IF V*="LIS"THEN 2380 <040> 

465 IF V*="UMS"THEN 120 <252> 

466 IF V*="BEF"THEN 2230 <009> 

467 IF V*=“STO"THEN 2290 <057> 

474 IF V*="TAU"THEN 2330 <047> 

475 GOSUB 2180:FOR 1=1 TO 18:IF V*=V*(I)TH 

EN 480 <112> 

478 NEXT:PRINT"WOVON SPRICHST DU?":GOTO 40 

0 <176> 

480 V=I:FOR X=1 TO LEN(BE*>:IF MID*(BE*,X, 

1)=CHR*(160)OR MID*(BE*,X,1)=CHR*(32)T 
HEN GOTO 490 <171> 

484 NEXTrIF V*="SIE"THEN 120 <183> 

486 PRINT"BITTE BENUTZEN SIE (WENIGSTENS!) 

ZWEI{3SPACEIW0ERTER!":GOTO 400 <224> 

490 GS=MID*(BE*,X+l,3):IF V*="SIE"THEN 506 <228> 

491 IF G*="SES“THEN 506 <005> 

500 FOR 1=1 TO 33:IF G*=G2*(I>THEN 506 <007> 

504 NEXT:FOR 1=1 TO 6 :IF G*=LEFT*(R*(I),3) 

THEN 506 <232> 

505 NEXT:PRINT"WAS FUER EIN DING MEINEN SI 

E??":GOTO 400 <032> 

506 GET A*:IF A*="{F1I"THEN B1*=“":G0T0 40 

0 <049> 

510 G=I:ON V GOTO 520,580,620,640,700,760, 

8B0,960,990,1030,1050,1090,1200,1230,1 

290 <119> 

511 ON V—15 GOTO 1350,1410,1440 <049> 

520 IF G(2)=L0 AND G*="WES"THEN PRINT"DIE 
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WACHE SIEHT MICH MISTRAUISCH AN!":GOSU 
B 14180 

521 IF G<2)=LO AND G*="WES"THEN PRINT"UND 
VERSPERRT MIR DEN WEG!"sGOTO 400 

530 IF G(31)=L0 AND G*="OST"THEN PRINT"JET 
ZT KANN ICH DORT NICHT HINGEHEN!":GOTO 
400 

535 IF G=15 AND L0=9 AND G(15)=L0 THEN LO= 
10:GOTO 120 

538 IF L0=19 AND G=31 AND G(31)=L0 THEN LO 
=20:GOTO 120 

540 IF G*="NOR"AND LO(LO,1)>0 THEN LO=LO(L 
0,1):GOTO 120 

545 IF G*="OST"AND LO(LO,2)>0 THEN LO=LO(L 
0,2):GOTO 120 

550 IF G*="SUE"AND LO(LO,3>>0 THEN LO=LO(L 
0,3):GOTO 120 

555 IF G*="WES"AND LO(LO,4)>0 THEN LO=LO(L 
0,4):GOTO 120 

560 IF G*="HOC"AND LO<LO,5)>0 THEN LO=LO<L 
0,5):GOTO 120 

565 IF G*="RUN"AND LO<LO,6)>0 THEN LO=LO(L 
0,6):GOTO 120 

570 PRINT"TUT MIR LEID, ABER DORT KANN ICH 
NICHT HINGEHEN!":GOTO 400 

580 IF TIGlOl THEN PRINT G1*(G); N KANN IC 
H NICHT TRAGEN!" 

581 IF T(8)01 THEN PRINT"ICH BIN DOCH NIC 
HT SUPERMANN!":GOTO 400 

590 IF GISIOLO THEN PRINT"ABER SEHEN SIE 
HIER ";G1*(G);"??":GOTO 400 

600 T=0:FOR 1=1 TO 33:IF 6(1)=-l THEN T=T+ 
1 

605 NEXT:IF T>=5 THEN PRINT"ICH TRAGE ZUVI 
EL!!":GOTO 400 

610 PRINT"IN ORDNUNG. WIR TRAGEN NUN ";G1* 
(G)”.":G <G)=—1:GOTO 400 

620 IF G(G)<>—1 THEN PRINT"ABER *';G1*(G);" 
HABE ICH GAR NICHT!":GOTO 400 

630 PRINT"IN ORDNUNG. HINGELEGT.“:G(G)=L0: 
GOTO 400 

640 IF G(6)<>LO THEN PRINT"OHNE EINE WAFFE 
KANN ICH NICHT SCHIESSEN“:GOTO 400 

650 IF G<>2 THEN PRINT"ALSO AUF "G1*(G>:PR 
INT"SCHIESSE ICH SCHON AUS UEBERZEUGUN 
G NICHT!"GOTO 400 

670 PR INT "PENG!! - DAS WAR WOHL NICHTS! DI 
E PISTOLE WAR ZU ALT!":GOSUB 14180 

680 PRINT"HEH!! WAS MACHT DENN DIE WACHE D 
A!!<5SPACE>DIE WIRD DOCH NICHT-" 


< 200 > 


<254> 


<108> 


<221 > 


<014> 


< 155> 


< 169> 


< 167> 


< 176> 


< 162> 


< 196> 


<203> 


< 153> 


<073> 


< 150> 


< 145> 


<213> 


<166> 


<080> 


< 185> 


<128> 


< 169> 


<078> 


<108> 


690 GOSUB 14180:PRINT"<4D0WN,4RIGHTJP E N 
G ! tSHIFT—SPACE>! <SHIFT-SPACE>!":FOR I 
=1 TO 5:GOSUB 14180:LO=23:GOTO 120 

700 IF G <G) < >L0 AND GIGXM THEN PRINT "ME 
IN HERR, ICH BIN KEIN ANHAENGER DER" 

701 IF G(G)< >L0 AND G(G)<>-1 THEN PRINT"TR 
ANSZEDENTALEN MEDITATION UND KANN<5SPA 
CE >ALSO"■ 

702 IF G<G)<>L0 AND GIGXM THEN PRINT" N 
ICHTS WERFEN, WAS ICH NICHT HABE!!":GO 
TO 400 

710 IF Z*<>""THEN 735 

711 PRINT G1*(G>;" WERFEN AUF";:GOSUB 200: 

GOSUB 720:GOTO 730 

720 Z*=LEFT*(I*,3):FDR 1=1 TO 33:IF Z*=G2* 

(I> THEN 725 

722 NEXT:PRINT"BITTE?“:Z*="":RETURN 

725 Z=I:RETURN 

730 IF Z*=""THEN GOTO 711:IF Z*=""THEN 710 <028> 

735 IF G< >7 AND 6017 THEN PR INT "GEWORFEN. 

NICHTS PASSIERT.":G(G)=L0:GOTO 400 

740 IF G=7 AND Z=2 AND G(Z)=LO THEN PRINT" 

BOING! HUFEISEN TRAF WACHE." 

741 IF G=7 AND Z=2 AND G(Z)=LO THEN PRINT" 

UND DIE WACHE SCHLAEFT IM DIENST..." 

742 IF G=7 AND Z=2 AND G(Z)=LO THEN G(3)=L 
O:G(7)=LO:G(2)=0:G2*(2)="X":G2*(3)="WA 
C" : GOTO 400 

745 IF G (Z > < >L0 THEN PR INT "SEHEN SIE HIER 
";Gl*(Z);"??":GOTO 400 

750 IF G=17 AND Z=26 THEN PRINT"KRACH! DIE 
BLEIPLATTE SCHMETTERT DEN{4SPACE>LEUT 
NANT NIEDER!" 

752 IF G=17 AND Z=26 THEN G(26)=0:G(28)=L0 
:GOTO 400 

760 IF Z*=""THEN PRINT G1*(G);" GEBEN AN"; 

:GOSUB 200:GOSUB 720 <208> 


< 162> 


<055> 


<0B3> 


<021 > 

< 191 > 

<009> 

<073> 

< 154> 
<244> 


<062> 


< 170> 


<083> 


< 164> 


<061 > 


<226> 


<106> 


765 IF Z*=""THEN 760 

770 IF Z<>8 THEN PRINT"BEDAURE, DAS GEHT N 
ICHT.":GOTO 400 

780 IF L0< >6 THEN PRINT"MEIN HERR, ICH SEH 
E HUA HIER NICHT!":GOTO 400 

790 IF 6011 THEN PR INT "WAS SOLL HUA DENN 
MIT ";Gl*(G)GOTO 400 

800 IF G<11)0-1 AND G ( 11 > < >L0 THEN PRINT" 
HAB WEDER RAKETE NOCH RUCKSACK. GOTO 
400 

810 PRINT"HUA CHANG FU IST GLUECKLICH, SEI 
NE HOHE(2SPACE JKUNST ANWENDEN ZU DUERF 
EN. " 

820 PRINT"WAEHREND ER DEN RUCKSACK REPARIE 
RT,C5SPACEIERZAEHLT ER VON SEINER FAMI 
LIE," 

830 PRINT"VON SEINEN AHNEN, VON ALI BABA, 
DER<5SPACE>IMMER 'SESAM OEFFNE DICH!’ 
RIEF," 

840 PRINT"WENN IHM WAS IM WEG WAR UND VON 
DEM{5SPACEJT0LLEN VOLKSWAGEN KAEFER, D 
EN" 

850 PRINT"IHM DIE KOMMUNE GESCHENKT HAT, W 
EIL ER<2SPACE>IN 5 MINUTEN DREI WASCHM 
ASHINEN“ 

860 PRINT"UND SIEBEN MOTORRAEDER REPARIERT 
HAT. " 

870 PRINT"ABER JETZT IST DER RUCKSACK WIED 
ER BE- TRIEBSBEREIT. KOSTEN UEBERNIMMT 

875 PRINT"DAS WERK. VIELEN DANK!" 

876 G(11)=0:G2*(11)="X":G2*(9)="RUC":G(9)= 
-1:Gl*(9)=G1*(9)+"SACK":GOTO 400 

880 IF G (G) < >—1 AND G(G)OLO THEN PRINT"ST 
ARTEN SIE LIEBER ZUM OPTIKER!" 

381 IF G (G) < >—1 AND G(G)OLO THEN PRINT“DE 
NN NIRGENDWO IST HIER ";Gl*(G);"!!":GO 
TO 400 

891 IF G<>9 AND GO10 AND GO20 THEN PRINT 
"ICH KANN ";Gl*(G):PRINT"NICHT STARTEN 
!":GOTO 400 

90P 'F G=10 THEN PR I NT" KN ATTER! KNATTER! - 
MIT DEM DING STIMMT WAS NICHT!":GOTO 
400 

910 IF G=9 THEN 925 

920 PRINT"DEN PRESSLUFTHAMMER STRATET MAN 
ANDERS!":GOTO 400 

925 PRINT"DER RAKETENRUCKSACK SPRINGT AN! 
—":GOSUB 14180 

930 PRINT"ICH HEBE AB!!!":GOSUB 14180 

940 IF L0< >2 AND L0<>3 THEN PRINT"HE! WO F 
LIEGE ICH HIN?!? HAAAALT!!":GOSUB 1418 
0 

945 IF LO<>2 AND L0<>3 THEN PRINT"ICH STUE 
RZE AAAAAAAAAAAB!!!!":L0=23:GOSUB 1418 
0:GOTO 400 

950 PRINT"...UND LANDE SANFT AUF DER MAUER 
!":GOSUB 14180:GOSUB 14180:LO=B:GOTO 1 
20 

960 IF G(G>< >L0 AND G(G)<>-1 THEN PRINT"ZI 
EHEN SIE SICH AN IHRER NASE!":GOTO 400 

970 IF G=14 AND RI=0 THEN PRINT"RUMPEL! EI 
N TEIL DER WAND GEHT ZURC6SPACE>SEITE! 

971 IF G=14 AND RI=0 THEN RI=1:G(15)=L0:GO 
TO 400 

974 IF G=14 AND RI = 1 THEN PRINT"SIE LEIDEN 
UNTER VERGESSLICHKEIT, WAS?":GOTO 400 

980 PRINT"AN ";G1*(G);" SOLL ICH ZIEHEN?": 
PRINT"WIE STELLEN SIE SICH DENN DAS VO 
R?":GOTO 400 

990 IF G (6><>— 1 AND GIGIOLO THEN PRINT"I 
DON’T SEE THAT HERE!":GOTO 400 

1000 IF G=1 THEN PRINT"DIE MAPPE IST GEOFF 
NET. SIE ENTHAELT<4SPACE>UNSERE ANWEI 
SUNGEN." 

1002 IF G=1 THEN 9000 

1005 IF G=13 THEN PRINT"IN ORDNUNG. DER KR 
UG IST OFFEN.":G(16)=L0:G(13)=0 

1006 IF G=13 THEN G2*(13)="X":G2*(16)="KRU 
":GOTO 400 

1010 IF G=29 AND G(27>=-2 THEN PRINT"MIT L 
ESIEM ZISCHEN OEFFNET SICH DIEC5SPACE 
1PANZERTUER!" 

1011 IF G=29 AND G(27)=-2 THEN G(29)=0:G(3 
1> =L0:G2*(29)="X":G2*(31> ="TUE":GOTO 
400 


<066> 
<041 > 
<19B> 

< 010 > 

<246> 

<062> 

< 211 > 

< 190> 

< 188 > 

<068> 

<214> 

<005> 

<140> 

< 156> 
<030> 

<160> 

< 121 > 

<042> 

<149> 

<009> 

< 175> 
<021 > 

<021 > 

< 116> 

<216> 
<241 > 

<047> 

<22B> 

< 164> 

<230> 

<235> 

<079> 

<018> 

< 124> 
<238> 

< 149> 

<219> 
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Listing »Adventure 2000« (Fortsetzung) 

1020 PRINT"LEIDER KANN ICH Gl*(G):PRINT" 
NICHT GEFFNEN ! •• s GOTO 400 

1030 IF G(G)<>LO AND G(G><>-1 THEN PRINT"D 
AS KANN ICH NICHT LESEN!!":GOTO 400 

1032 IF G=1 THEN PRINT"DIE MAPPE ENTHAELT 
DIE ANWEISUNGEN."sGOTO 9000 

1040 IF G=17 THEN PRINT"DGRT STEHEN ZAHLEN 
: ";CO*s GOTO 400 

1045 PRINT"NEIN, ";G1*(G>;" KANN ICH NICHT 
LESEN!":GOTO 400 

1050 IF 6018 THEN PRINT" ICH BIN DOCH NICH 
T HERKULES.":GOTO 400 

1055 IF LOO10 THEN PRINT"WIR WERDEN WOHL 
WARTEN MUESSEN, BIS UNS JEMAND EINEN 
FELSBLOCK" 

1056 IF LOO10 THEN PRINT“BRINGT, DENN HIE 
R IST KEINER!!":GOTO 400 

1060 IF KR=0 THEN PRINT"ICH VERSUCH'S JA, 
ABER ICH BIN NICHT<4SPACE>STARK GENUG 
!": GOTO 400 

1070 PRINT"IN ORDNUNG! ICH SCHNAPPE MIR DE 
N FELSEN UND SCHLEUDERE IHN WEG!":GOS 
UB 14180 

1075 PRINT"DAS SOLLTE OBELIX SEHEN! DER FE 
LSEN{5SPACEJPRALLT GEGEN DIE WAND UND 

1080 PRINT"ZERBROECKELT!":G(18)=0:G(19)=LO 
:LO(10,1)= 11:GOTO 400 

1090 IF 6 ( 6 )OLD AND G CG)0-1 THEN PRINT G 
1*<G);" SEHE ICH HIER NICHT!":GOTO 40 
0 

1100 IF G=21 AND PR=1 THEN PRINT"RATATATAT 
ATATAÜ! DER PRESSLUFTHAMMERL3SPACE>S 
PRINGT AN!" 

1101 IF 6=21 AND PR=1 AND L0=11 THEN PRINT 
"UND EIN LOCH IST IM BODEN!!"sLO(11,6 
)=12:GOTO 400 

1102 IF G=21 AND PR=1 THEN PRINT“ABER ES P 
ASSIERT NICHTS!GOTO 400 

1105 IF G=21 THEN PRINT"NICHTS GESCHIEHT." 
.-GOTO 400 

1110 IF G=22 AND L0=15 THEN PRINT“ZISCH! D 
IE ENTE BLAEST SICH AUF! ICHL4SPACE>S 
TEIGE!" 

1115 IF G=22 AND L0=15 THEN PRINT"PENG! DI 
E ENTE PLATZT! ABER ICH BIN<5SPACE>AU 
FGETAUCHT!» 

1118 IF G=22 AND L0=15 THEN L0=14:G(22)=0: 
GOTO 400 

1120 IF (3033 THEN PR INT “AUF “;Gl*(G):PRIN 
T“ KANN ICH NICHT DRUECKEN!":GOTO 400 

1130 PRINT"AUF EINEM BILDSCHRIM ERSCHEINT: 



1290 

< 002 > 

1300 

<031 > 

1310 

< 175> 

1320 

< 200 > 

1330 

<155> 

1335 

<106> 

1340 

<039> 

1350 

<249> 

1355 

< 139> 

1360 

<249> 

1365 

1368 

<077> 

1370 

1375 

< 1B7> 

1380 

<127> 

1385 

1390 

1395 

< 151 > 

1400 

1410 

< 189> 

<079> 

1420 

1425 

< 162> 


1430 

<093> 

1440 


OEFFEN!":GOTO 400 <058> 

IF GCGJOLO AND 6 ( 6 ) 0-1 THEN PRINT"T 
UT MIR LEID, ";G1*(G>:PRINT"SEHE ICH 
HIER NICHT!":GOTO 400 <142> 

IF G<>20 THEN PRINT G1*(G>;" KANN ICH 
NICHT AUFFUELLEN!":GOTO 400 <117> 

IF Z*=""THEN PRINT"DEN PRESSLUFTHAMME 
R AUFFUELLEN MIT WAS ";:GOSUB 200:GOS 
UB 720 


CHT.":GOTO 400 

IF PR=1 THEN PRINT"DAS KANN ICH N! 

MEHR.":GOTO 400 
PR INT"GLUCK GLUCK GLUCK! PRESSLUFTHAM 
MER IST(2SPACE>AUFGEFUELLT!":PR=1:GOT 
0 400 

IF 6 ( 6 )OLD AND 6 ( 6 )0-1 THEN PRINT"L 
EIDEN SIE AN HALLUZINATIONEN?":GOTO 4 
00 

F G<>27 AND G<>25 THEN PRINT G1*(G>; 
KANN ICH NIRGENDWO REINSTECKEN!":GO 
TO 400 

Z*=""THEN PRINT G1*(G);“ STECKEN I 
N " 5 :GOSUB 200:GOSUB 720 
Z*=""THEN 1360 

G(Z)OLO THEN PRINT G1*(Z) 5 " SE 
ICH HIER NICHT!“:GOTO 400 


< 175> 
<152> 

< 188 > 
<203> 


< 126> 


<050> 


*(G)j“ STECKEN? WARUM?":GOTO 400 
NT-DER STEIN PASST! IN DER DEC 
EFFNET SICH DIE LUKE!!" 


1135 PRINT“COUNTDOWN—STOP DURCH EINGABE DE 
S{ 8 SPACE)ABSCHUSSCODES BESTAETIGEN'" 

1140 PRINT"ABSCHUSCODE => GOSUB 200 

1150 IF I*=CO*THEN 9140 

1155 POKE 53280,3:PRINT"CCLR >UEBERALL HEUL 
EN ALARMLICHTER AUF!" 

1160 PRINT"HILFE!! DIE RAKETE STARTET!! WA 
S HABEN£2SPACE>SIE GETAN!!":L0=24:FOR 
1=1 TO 4 

1170 GOSUB 14180:NEXT:GOTO 120 

1185 FOR 1=1 TO 20:POKE 53280,2:F0R X=1 TO 
150:NEXT:POKE 53280,1:FOR X=1 TO 150 
:NEXT:NEXT 

1200 IF G<>5 THEN PRINT"AUF ";Gl*(G):PRINT 
" KANN ICH NICHT KLETTERN!“:GOTO 400 

1210 IF L0O5 THEN PRINT"SIE SEHEN WOHL DE 
N BAUM VOR LAUTERC 6 SPACEJWAELDERN NIC 
HT?":GOTO 400 

1220 L0=7:GOTO 120 

1230 IF G*="SES"THEN 1260 

1240 PRINT"DAS ZU RUFEN WUERDE NICHT VIEL 
ZUR<6SPACE>L0ESUNG DES ADVENTURES BEI 
TRAGEN!" 

1250 GOTO 400 

1260 PRINT"CDOWNJSESAM, OEFFNE DICH!!" 

1270 IF L0O17 THEN PRINT"NICHTS PASSIERT. 

“:GOTO 400 

1275 IF SE=0 THEN PR INT" RUMPEL! RUMPEL! DE 
R BERG OEFFNET SICH!“:LO(LO,4)=18:SE= 

1:GOTO 400 

1280 PRINT"HOER MAL, DER BERG IST BEREITS 


< 143> 

< 116> 
<033> 
<085> 


<215> 
< 136> 
<087> 

<171 > 


< 145> 
<051 > 


<077> 

<088> 


<173> 

<162> 

<025> 


<223> 

<003> 

<144> 

<041 > 


< 006 > 


ICH NICHT!!":GOTO 400 

IF GtGJOLO AND G(G)<M THEN PRIN. w 
IE HABEN WOHL ZUVIEL GETRUNKEN?":GOTO 
400 

IF KR=1 THEN PR INT "ALLZUVIEL IST UNGE 
SUND!":GOTO 400 

PRINT“GLUCK! GLUCK! GLUCK! SCHMECKT N 
ICHT C5SPACEJSCHLECHT!":KR=1:GOTO 400 


<255> 

<223> 

< 202 > 

<238> 

< 192> 

<22B> 

< 145> 
<088> 
<071 > 

<091 > 
< 100 > 

< 134> 


<237> 
< 174> 


< 133> 


:G(14)=L0:GOTO 


PRINT“ICH SEHE ETWAS 
400 

1445 IF G*=“SIL“AND L0=22 THEN PRINT"ICH S 
EHE ETWAS!“:G(33)=L0:GOTO 400 
1450 FOR G=1 TO 33:IF G*=G2*(G)THEN 1455 
1452 NEXT:PRINT"ICH SEHE NICHTS BESONDERES 
!“:GOTO 400 

1455 IF GIGIOLO AND G(G)<>-1 THEN PRINT"D 
AS SEHE ICH HIER NICHT":GOTO 400 
1460 IF G=1 THEN PRINT"SIE ENTHAELT UNSERE 
ANWEISUNGEN.":GOTO 9000 
1470 IF G=3 AND G(4)=0 THEN PRINT"ER HAT E 
TWAS BEI SICH! *': G(4) =LO:GOTO 400 
1480 IF G=5 AND G(7)=0 THEN PRINT-DA LIEGT 
ETWAS NEBEN DEM BAUM!":G(7)=LO:G( 6 )= 

LO:GOTO 400 

1490 IF G=10 AND G(11)=0 THEN PRINT"BEIM S 

KELET LIEGT ETWAS!":G(11)=L0:GOTO 400 <162> 
1495 IF G=11 THEN PRINT"ER FUNKTIONIERT NI 
CHT.":GOTO 400 

1500 IF G=13 THEN PRINT"ER IST NICHT BESON 
DERS GUT VERSCHLOSSEN!":GOTO 400 
1505 IF G=16 AND KR=0 THEN PRINT"ES IST KE 
IN GIFT DRIN!“:GOTO 400 
1510 IF G=16 AND PR=0 THEN PRINT"DAS ZEUG 
IM KRUG RIECHT BEINAH WIEC 6 SPACEIBENZ 
IN!":GOTO 400 

1515 IF 6=17 THEN PRINT“ES IST ETWAS IN DI 
E PLATT EINGERIZT!“:GOTO 400 
1520 IF G=18 THEN PR INT "ER VERSPERRT UNS D 
EN WEG!":GOTO 400 

1530 IF G=19 THEN PRINT"TJA, ICH HABE ZIEM 
LICH KRAEFTIG AUF DEN FELSBLOCK GEHAU 
EN!":GOTO 400 

1540 IF G=20 AND G(21)=0 THEN PRINT"ICH HA 

BE ETWAS GEFUNDEN!“:G(21)=L0:GOTO 400 <174> 
1550 IF G=22 THEN PRINT"SIE KANN SICH WIE 
EINE SCHWIMMWESTEC5SPACEJSELBST AUFBL 
ÄSEN!”:GOTO 400 <044> 


<051 > 

< 220 > 
<241 > 

< 110 > 

<053> 

<248> 

<021 > 


< 110 > 


< 122 > 
<246> 
<001 > 


<248> 
< 131 > 
<242> 


< 191 > 
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1560 IF G=23 AND G<24)OLD THEN G(24>=LG:P 
RINT"ICH HABE ETWAS GEFUNDENGOTO 4 
00 

1570 IF G=25 THEN PRINT“ER HAT EINE EIGENA 
RTIGE FORM!“:GOTO 400 
1575 IF G=26 THEN PRINT"ER HAT UNS NOCH NI 
CHT GESEHEN!”: GOTO 400 
1580 IF G=28 AND G(27>=0 THEN G(27)=L0:PRI 
NT"ICH HABE ETWAS GEFUNDEN!":GOTO 400 
1590 IF G=27 THEN PRINT“ER HAT SELTSAME ZA 
CKEN!":GOTO 400 

1600 IF G=29 AND G(30)<>LO THEN G(30)=LO:P 
RINT"ICH HABE ETWAS GEFUNDEN!":GOTO 4 
00 

1605 IF G=30 THEN PRINT"MAN KOENNTE WAS RE 
INSTECKEN!“:GOTO 400 

1606 IF G=29 AND G<30)=0 THEN PRINT" ICH HA 
BE ETWAS ENTDECKT !'':G (30) =LO: GOTO 400 

1610 IF G=32 THEN PRINT"SIE ZEIGEN DAS BIL 
D EINER RAKETE!"sGOTO 400 
1620 PRINT"AN ";GIS(G):PRINT"ERKENNE ICH N 
ICHTS BESONDERES !": GOTO 400 
2000 Z1=Z1+1 

2010 IF ZI>1280 THEN PRINT“JEMAND SCHEINT 
HINTER UNS HER ZU SEIN!{2SPACEJICH HO 
ERE STIMMEN!" 

2020 IF ZI>=300 THEN PRINT"ICH HATTE RECHT 
! HILFE! MAN HAT UNSt5SPACE>EINGEHOLT 
!!":L0=2 

2030 IF ZI>=300 THEN GOSUB 14180:GOSUB 141 
80:RETURN 

2035 IF L0>22 THEN 14370 

2040 IF L0=8 THEN PRINT"DER WACHTRUPP SING 
T: KOMMT EIN VOEGLEIN GEFLOGEN..." 
2050 IF L0=8 THEN FOR 1=1 TO 6:GOSUB 14180 
:NEXT:L0=9:PRINT"{CLR>WO BIN ICH?":GC 
9)=0:RETURN 

2060 IF LO=15 THEN W1=W1+1:IF Wl>=4 THEN P 
RI NT "ICH HABE BALD KEINE LUFT MEHR! !" 

2070 IF L0=15 AND W1 >=B THEN PRINT" ICH ERT 
RINKE! — BLUBS GLUCK..." 

2071 IF L0=15 AND Wl>=6 THEN FOR 1=1 TO 3: 
GOSUB 14180:NEXT 

2080 IF L0=18 AND G(26)=L0 THEN MP=MP+1:IF 

MP>=5 THEN PRINT"MC PERKINS DREHT SI 
CH UM! HILFE!" 

2081 IF L0=18 AND MP>=5 THEN PRINT"ER ZIEH 
T EINE WAFFE!”:L0=23:FOR 1=1 TO 3:G0S 
UB 14180:NEXT 

2090 IF L0=21 AND G<4)0-1 THEN PRINT"UEBE 
RALL HEULEN SIRENEN AUF!“ 

2091 IF L0=21 AND G(4><>-1 THEN PRINT"ALAR 
MLICHTER GEHEN AN! WACHEN KOMMEN!!" 

2092 IF L0=21 AND G(4)<>-1 THEN L0=23:F0R 
1=1 TO 3:GOSUB 14180:NEXT:GOTO 120 

2100 RETURN 

2110 IF BES="N"THEN BE*="GEH NOR“ 

2120 IF BE$="0"THEN BE*="GEH OST" 

2130 IF BES="S"THEN BE*="GEH SUE" 

2140 IF BES="W"THEN BES="GEH WES" 

2150 IF BES="H"THEN BE*="GEH HOC" 

2160 IF BE*="R"THEN BES="GEH RUN" 

2170 RETURN 

2180 IF VS="WIR"THEN V*="WER" 

2190 IF VS="GIB"THEN VS="GEB" 

2200 IF V*=”LIE"THEN V*="LES“ 

2210 IF VS="UNT“THEN VS="SIE" 

2220 RETURN 

2230 PRINT"ALLE ZULAESSIGEN VERBEN SIND:" 
2240 PRINT"{DOWNJGEH, NIMM, LEG, SCHIESSE, 
WERFE, GEBE,C2SPACEJSTARTE, ZIEHE, 0 
EFFNE, LESE" 

2250 PRINT"WAELZE, DRUECKE, KLETTERE, RUFE 
, FUELLE,STECKE, UNTERSUCHE, TRINKE" 
2260 PRINT"(WIRF, GIB, LIES, SIEH)" 

2270 PRINT"(DOWN >EIN—WORT—KOMMANDOS: " 

2280 PRINT"UMSCHAUEN, BEFEHLE, STOP, ZUEGE 
, LIST,{2SPACEJTAUCHE":GOTO 400 
2290 PRINT"{CLR1SIE WOLLEN GERADE JETZT AU 
FHOEREN?" 

2300 GET AS:IF AS="N"THEN 400 
2310 IF ASO"J"THEN 2300 

2320 PRINT"DANN AUF WIEDERSEHEN!":GOTO 143 
90 

2330 IF L0<12 OR L0>14 THEN PRINT"HIER KAN 
N ICH NICHT TAUCHEN!!":GOTO 400 
2340 IF G(17)<>—1 THEN PRINT"ICH BIN ZU LE 


<232> 
<252> 
<028> 
<234> 
< 179> 


ICHT! ICH GEHE NICHT UNTER!":GOTO 400 
2350 LQ=15:GOTO 120 

2380 X1=0:PRINT"ICH TRAGE BEI MIR:" 

2390 FOR 1=1 TO 33:IF G(I)=-1 THEN PRINT G 
1*(I):X1=1 

2400 NEXT:IF X1=0 THEN PRINT"NICHTS." 

2410 GOTO 400 

9000 PRINT"KENNEN SIE DIE ANWEISUNGEN BERE 
ITS?" 

9002 GET AS:IF AS="J"THEN 9100 

9003 IF ASO"N"THEN 9002 

9005 PRINT"fCLR>GEHEIMAUFTRAG — TOP SECRE 
T! ! " 


<016> 

<068> 

<255> 

<250> 

<083> 
< 122 > 

<215> 

<046> 

< 192> 
<219> 

< 121 > 


9010 PRINT"{DQWNJVOR EINIGEN WOCHEN ENTDEC 
KTE MAN, DASSI2SPACE>IN EINEM RAKETEN 
SILO DER US“ 

9015 PRINT"STREITKRAEFTE DIE GESAMTE MANNS 
CHAFT<4SPACE>EINSCHLIESSLICH EINER JU 
PITER-“ 

9020 PRINT"CENTAUR-RAKETE FEHLTE." 

9025 PRINT”CDOWNJDER KOMMANDIERENDE OFFIZI 
ER, LT MC{6SPACE>PERKINS, LIES ETWAS 
SPAETER DER” 

9030 PRINT"REGIERUNG DIE NACHRICHT ZUKOMME 
N, DASS{2SPACE>ER DIE RAKETE AN EINEM 
ANDEREN" 

9035 PRINT"ORT AUFGESTELLT UND DEN COUNTDO 
WN{2SPACE >AUSGELOEST HABE. WENN IHM N 
ICHT" 

9040 PRINT"INNERHALB DIESER ZEIT DAS OBERK 
OMMANDOC2SPACE>UEBER DIE GESAMTEN US- 
STREIT-” 

9045 PRINT"KRAEFTE UEBERTRAGEN WUERDE, WIL 
L ERI3SPACE>MIT DIESER RAKETE DEN 3. 
WELTKRIEG" 


< 122 > 
< 010 > 
<221 > 


; 90, C 

9075 


< 199> 

< 195> 

< 202 > 


9050 PRINT"AUSLOESEN!" 

9055 PRINT"BITTE >RETURN< DRUECKEN!" 

9060 GET AS:IF AS< >CHRS(13)THEN 9060 

9065 PRINT"{CLRJAGENTEN DES CIA HABEN DANA 
CH DAS VER—{3SPACEJSTECK DER RAKETE A 
USGEMACHT:" 

PRINT"EIN VERLASSENER ABSCHNITT DER G 
ROSSEN{3SPACE >CHINESISCHEN MAUER! !” 
PRINT"CDOWNJDA ES NATUERLICH UNMOEGLI 
CH IST, DEN{4SPACE1FQRDERUNGEN NACHZU 
KOMMEN, HABEN" 

9080 PRINT"DER PRAESIDENT UND DER KONGRESS 
{9SPACE >BESCHLOSSEN, DEN BESTEN AGENT 
EN" 

9085 PRINT"DER IHNEN ZUR VERFUEGUNG STEHT 
AUF DIEC2SPACE>RAKETE ANZUSETZEN: JAM 
ES BOND!“ 


<027> 

<064> 

<016> 

< 102 > 

< 150> 
<144> 

<043> 

<046> 

< 166> 

<206> 


< 144> 


<236> 

<029> 


< 210 > 


<064> 


< 197> 


< 167> 


< 154> 
<042> 
<163> 
<013> 


<195> 

<096> 


< 199> 


< 111 > 


< 192> 


<251 > 

<024> 
< 202 > 
<203> 
<221 > 
<226> 
<242> 
< 216 > 
<007> 
<016> 
<126> 
<072> 
< 112 > 
< 148> 
<066> 
<045> 


9090 PRINT"IDOWNJNUN WAR JAMES BOND GERADE 
VERHINDERT{4SPACE>(ER HATTE GRIPPE) 

- UND DA" <188> 

9095 PR INT "KAM MAN AUF-SIE!!*' <194> 

9100 PRINT"{DOWNJSTOPPEN SIE DEN COUNTDOWN 
DER RAKETE,<3SPACE>BEV0R ES ZU SPAET 
IST!" <085> 

9110 PRINT"{DOWN>ALLES KLAR? DANN BITTE >R 

ETURN<!“ <149> 

9120 GET AS:IF AS<>CHRS(13)THEN 9120 <070> 

9130 L0=2:G(1)=0:GOTO 120 <135> 

9140 PRINT"CCLR>AUF DEM BILDSCHRIM ERSCHEI 

NT:" <185> 

9145 PRINT"{DOWNJABSCHUSS CODE BESTAETIGT. 

COUNTDOWN{5SPACE>GESTOPPT!" <179 > 

9150 PRINT"{2D0WNJSIE HABEN ES GESCHAFFT!! 


SIE HABEN ES{3SPACE>WIRKLICH GESCHAF 


<038> 


<143> 

<23B> 

<057> 


<0B0> 


FT!!!“ <166> 

9160 PRINT"HURRA! DAS WAR HERVORAGEND!!“ <164> 

9170 PRINT"{2D0WNIGERUECHTEN ZUR FOLGE WIL 
L DER PRAESI-<3SPACE>DENT IHNEN JETZT 
EINEN ORDEN“ <101> 

9180 PRINT"VERLEIHEN! HERZLICHEN GLUECKWUN 

SCH!!" <096> 

9200 GOTO 14390 <157> 

10000 GS(1,1)=“{20SPACE>" <119> 

10010 GS(1,2>=" SEAL{5SPACEJ0F{4SPACEJTHE 


<049> 

< 179> 
<093> 

< 011 > 

< 127> 


“ <029> 

10020 GS(1,3)=" 'o’oWö'ö'öo'oWoöo'öWo " <143> 

10030 GS(1,4)="r<WHITE>**********{BLACK>y{ 

RVSON,RED,7SPACE,BLACK,RVOFF>T" < 065> 

10040 GS(1,5)="T<WHITE>*•***»»****{BLACK>7< 

RVSON,WHITE,7SPACE,BLACK,RVOFF >7" < 053> 

10050 GS(1,6)="r{WHITE >**********{BLACK >7{ 

RVSON,RED,7SPACE,BLACK,RVOFF >7" < 0B7 > 
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10060 

10070 

100S0 

10090 

10100 

10110 

10150 

10160 

10165 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

104B0 

10490 

10500 


GS(1,7)=8*<1,5) 

G*(1,8)="rCWHITE>**********{BLACK>7t 
RVSON,RED,7SPACE,BLACK,RVOFF JT" 
g*( i,9)="Luuuuumnmu{RVS on,white,ssp 
ACE,BLACK,RVOFF JT" 

GS(1,10)="r{RVSON,RED,18SPACE, BLACK, 
RVOFF >5"' 

G* (1,11 > = •' r {RVSON, WH I TE, 18SP ACE, BL AC 
K, RVOFF jy 

G$(1,12)=GS(1,10):GS(1,13)=G*(1,11)1 
G* <1,14)=GS(1,10): GS(1,15)=GS(1,11) 
G*<1,16) = " (BLACK,SPACEJllUUUU'UUUUUUUU 
ÜÜDOT “ 

GS(1,17)=" PRES1DENT C2SPACE >OFt2SPAC 
E>THE “ 

G*(1,18)="(3SPACEJUNITED(2SPACEJSTAT 
ES{3SPACEJ" 

GS(2,1> ="(20SPACE>" 

GS(2,2)="{18SPACE,YELLOWJ£{BLACK,SPA 
CEJ" 

GS < 2,3 > ="{20SPACE J" 

GS <2,4)="{11SPACE Jflflflfl{5SPACE >" 

GS(2,5)="fl{3SPACEJ flfl{4SPACE Jfl {2SPACE 
Jfl fl(4SPACEJ" 

GS(2,6)=" fl fl{2SPACEJfl{SPACE,GREY 3> 
T{BLACKJfl{GREY 3J? T{SHIFT-SPACEJT{B 
LACK,SPACEJfl flfl" 

G* (2,7) = " {2SPACE Jfl flfl flfl{GREY 3JTTTT 
{BLACKJfl fl{2SPACEJ" 

G S(2,B)= "flfl fl{2SPACEJflfl{SPACE,GREY 3 
J +'++>+>j {BLACK , SPACE Jfl {3SPACE J " 

GS(2,9)=“{2SPACE Jfl{4SPACE Jfl{SPACE,GR 
EY 3 J^FFFPFSJ {BLACK , 2SPACE Jflflfl" 

GS(2,10)=" fl{6SPACEJfl{GREY 3JT T TR{ 
2SPACE Jfl{2SPACE J“ 

GS (2,11) = "{GREY 2JT+{2SPACEJ+F{2SPAC 
E J F+V+V+V+V {2SPACE J+" 

GS(2,12)="{GREY 2J^FFFFFFFFTT T WAV 
++" 

GS(2,13)="{GREY 2JTF TT ++L+++V+V+' T 


< 195> 

< 109> 

< 163 > 

< 188> 

< 176> 
<251 > 

< 195> 

< 114> 

<241 > 
<044> 

<054> 

<066> 

< 131 > 

<040> 


GS<2, 14) = " {GREY 1 JTTTTTTTTTT T TffTTT 

++“ <058> 

GS (2, 15)=" {GREY 1 J T T V+++TT L VVV++V++V 

++" <145> 

GS (2,16) = 1 " { BLACK JYYYVYYWY{GREY 3JTT 

TTT(BLACK J flTYYYY“ < 194 > 

GS (2 ’ 18) = " (LIG. GREEN J flfl {RVSON, 4SPACE 
,RVOF FJfl{RVSON,SPACE,RVOFF,BLACKJflfW 
WWS{LIG. GREEN , RVSON , SPACE, RVOFF Jfl{ 

RVSON,2SPACE,BLACKJ“ <116> 

G*(3,1) =" {5SPACE JTJ{3SPACEJfl{2SPACE J5 - 
{2SPACEJfl {LIG .BLUEJTTTT {BLACKJ“ <159> 

G*(3,2)="TTTT W{2SPACEJr<2SPACEJfl7 fl 
{LIG.BLUEJTTTT{BLACKJfl" <1S2> 

GS(3,3)="{2SPACEJF flfl fl{LIG.BL 
UEJTTTT{BLACKJfl " <045> 

GS(3,4)—"r=r=TH{2SPACEJrflfl fl{LIG. BLU 
EJTTTT{BLACKJfl{2SPACEJ “ <056> 

G S (3, 5) =" (2SPACE JTfl fl {LIG. BLUE 

JTTTT(BLACK J fl{3SPACE J “ <117> 

GS(3,6)=" r=r=Ti?{4SPACE J fl{LIG. BLUE JTT 
TT{BLACKJfl(4SPACEJ" <252> 

GS(3,7)="OTUÜ R{3SPACEJfl{LIG.BLUEJTT 
TT{BLACK Jfl{4SPACE Jfl“ <218> 

GS(3,8)= "{5SPACE JW{2SPACEJfl{LIG.BLUE 
JTTTT{BLACK Jfl{4SPACE Jfl{RVSON,LIG.GRE 
EN,SPACE,BLACKJ" <064> 

G* (3,9) =" (5SPACEJR fl{LIG. BLUE JTTTT{8 
LACK Jfl{4SPACEJfl{RVSQN,LIG. GREEN,SPAC 
EJfl{BLACKJ" <035> 

GS (3,10) ='• {5SPACEJRfl{LIG. BLUE JTTTT(B 
LACK Jfl{4SPACEJfl{RVSON,LIG. GREEN,SPAC 
E Jfl{SPACE,BLACK J“ <0B5> 

G*(3,11) = '"[JTrmJTO{LIG. BLUE JTTTT{BLACK 
Jfl{5SPACEJUUiriT" <055> 

GS(3,12)=“{LIG.BLUE J V+V+V+V+V {BLACK J 
HU0SPACEJ” <080> 

GS(3,13) =” {LIG. BLUE J' +V+V+V-t-V {BLACK Jfl 
{11SPACEJ" <181> 

GS (3,14) = " {LIG. B LUE JV-V+V+W{BLACK Jfl{ 

4SPACE JflOmnAJW" <240> 

GS (3, 15)=" {LIG. BLUE JTTTTTT {BLACK Jfl{4 
SPACE Jfl{RVSON,LIG.GREEN,SPACE Jfl{2SPA 


CEJflfl{2SPACE,BLACKJ" <017> 

10510 GS (3, 16) =" {LIG. BLUE JTTTTT{BLACK Jfl{4S 
PACE Jfl{RVSON,LIG.GREEN,7SPACEJfl{SPAC 
E,BLACK J“ < 19a> 

10520 GS (3, 17) =" {LIG. BLUEJTTTT{BLACK Jfl(4SP 
ACE Jfl{RVSON,LIG.GREEN,3SPACE Jfl fl{3SP 
ACEJfl{BLACKJ" <219> 

10530 G*(3,18)="{LIG.BLUEJTTT<BLACKJfl<4SPA 
CE Jfl{RVSON,LIG.GREEN,2SPACE Jflfl{7SPAC 
E.BLACKJ" <i 04> 

10540 GS(4,1)="{2SPACEJflfl{3SPACEJflfl{2SPACE 
Jflfl{2SPACE Jflfl{SPACE,YELLOW)S(BLACK,S 
PACE J" <003> 

10550 GS(4,2)=" fl{2SPACEJflflfl flflfl{2SPACEJflfl 

{2SPACEJflflfl" < 07 0> 

10560 GS(4,3)="fl{2SPACEJfl{2SPACEJflfl{2SPACE 

Jfl{3SPACEJfl{3SPACEJfl " <076> 

10570 GS(4,4)=" tYtWUYUYUY'iWtVtYTV" <147> 

10580 GS(4,5)="{RVSON,LIG.GREEN,SPACE Jflflfl{ 

2SPACEJfl flfl{4SPACEJfl flfl“ <007> 

10590 GS(4,6)="{RVSON,LIG.GREEN,4SPACEJfl{1 

10600 ®| PACE>Ä{3SPACE>Ä " <002> 

ON,LIG.GREEN,4SPACEJ" “ <160> 

10610 GS(4,8)= ■" {16SPACE,BLACK J£{RVSQN,LIG. 

GREEN,3SPACEJ" <227> 

10620 GS(4,9 > ='" {17SPACE,BLACKJC(RVSON,LIG. 

GREEN,2SPACEJ" <23B> 

RVSON,LIG.GREEN,SPACEJfl" <10B> 

10640 GS(4,11)="{RVSON,LIG.GREEN,9SPACE,RV 
OFF,BLACKJ£(7SPACE Jr{RVSON,LIG. GREEN 
.SPACEJfl" <246> 

10650 GS(4,12)="{RVSON,LIG.GREEN,7SPACE Jfl{ 

2SPACE,RVOFF,BLACK J£{6SPACE Jf{RVSON, 

LIG.GREEN,2SPACEJ" <001> 

10660 GS(4,13)="(RVSON,LIG.GREEN,5SPACE>fl{ 

5SPACE,RVOFF,BLACK )£{5SPACE Jr(RVSON, 

LIG.GREEN,2SPACEJ" <012> 

10670 GS(4,14)="{RVSON,LIG.GREEN,3SPACEJfl{ 

7SPACE,RVOFF,BLACKJR{5SPACEJr(RVSON, 

-iggt- LIG. GREEN Jfl " <214> 

10600 GS(4,15)="{RVSON,LIG.GREEN,2SPACEJfl{ 

5SPACEJfl(2SPACE,RVOFF,BLACK )R{5SPACE 
Jr{RVSON,LIG.GREEN,2SPACEJ" <225> 

10690 GS(4,16)="{RVSON,LIG.GREEN,SPACE J fl{2 
SPACE Jfl(6SPACE,RVOFF,BLACK JR{5SPACEJ 
T(RVSON,LIG.GREEN,SPACE Jfl" <196 > 

10700 GS(4,17)="(RVSON,LIG.GREEN,7SPACEJfl{ 

3SPACE,RVOFF,BLACK )R{5SPACE Jr(RVSON, 

LIG.GREEN,2SPACEJ" <031> 

10710 GS(4,18)="{RVSON,LIG.GREEN,5SPACEJfl{ 

6SPACE,RVOFF,7SPACE,RVSON,SPACE,BLAC 
KJ" <049> 

10720 GS(5,1)="{13SPACE,GREEN J0TP (3SPACE,Y 

ELLOWJ£(BLACK,SPACEJ" <116> 

10730 GS(5,2)="{11SPACE,GREEN,RVSON,5SPACE 

,RVOFF,BLACK,4SPACEJ" <170> 

10740 GS(5,3)="{10SPACE,GREEN,RVSON,7SPACE 

,RVOFF,BLACK,3SPACEJ" <181> 

10750 GS(5,4)="{9SPACE,GREEN,RVSON,BSPACE, 

RVOFF,BLACK,3SPACEJ" <192> 

10760 GS(5,5)="(4SPACEJflfl(3SPACE,GREEN,RVS 

ON,BSPACE,RVOFF,BLACK,3SPACEJ" <103 > 

10770 GS(5,6)="flflflfl(2SPACE Jfl(2SPACE,GREEN, 

RVSON,8SPACE,RVOFF,BLACK,3SPACEJ" < 218 > 

10780 GS(5,7)=" flfl flfl flfl(GREEN,RVSON,8SPAC 

E,RVOFF,BLACKJflflfl" <027> 

10790 GS(5,8)="{2SPACEJflfl(2SPACEJflfl(2SPACE 
,GREEN,RVSON,6SPACE,RVOFF,BLACK,SPAC 
E Jfl(2SPACE J" <241> 

10800 GS(5,9)="{2SPACEJfl(3SPACEJfl(4SPACE,G 
REEN,RVSON,4SPACE,RVOFF,BLACK Jflfl<2SP 
ACEJfl" <253> 

10810 GS(5,10>=" fl(3SPACEJfl{6SPACE,BR0WNJT 

T(BLACK,2SPACEJfl fl “ <128> 

10820 GS (5,11 > = "Q-pgpp oo'p'o o'p'o'(BROWN> TT(BLAC 

K J'l'o'PQPT" < 163> 

10830 GS(5,12)="(RVSON,LIG.GREEN,SPACEJflfl{ 

9SPACE,RVOFF,BROWNJTT(LIG. GREEN,RVSO 
N,SPACEJflfl(SHIFT—SPACEJfl " <143> 

10840 GS(5,13)="(RVSON,LIG.GREEN,3SPACEJAÄ 
fl{SHIFT—SPACEJflfl(3SPACE,RVOFF,BROWN J 
TT{L IG.GREEN,RVSON,6SPACE J" <154 > 

10850 GS(5,14 > = "{RVSON,LIG.GREEN,12SPACE,R 
VOFF,BROWN JTT{LIG.GREEN,RVSON,3SPACE 
>&& " <125> 
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Adventure 2000 


Listings 


10860 GS (5 , 15 > = " {RVSON , LIG. GREEN , 6SPACE J Hü 
(SHIFT-SPACE J H < 10SPACE >" 

10870 GS(5,16 > ="(RVSON,LIG.GREEN,2SPACE JH{ 
6SPACE JH(2SHIFT-SPACE J XXX fSHIFT-SPAC 
EJH{SHIFT-SPACEJH " 

10880 GS (5,17) = "{RVSON,LIG.GREEN,SPACE>XXX 
{16SPACE >“ 

■?" 

10900 GS (6,1)="(2SPACEJHfl{8SPACEJHÜ HÜ{2SP 
ACE,YELLOW Jfi{BLACK >“ 

10910 GS(6,2)=" H{2SPACEJnxn{2SPACEJN)lH(25 
PACEJH(2SPACE >fl{2SPACE >" 

10920 GS(6,3)= "H<3SPACEJH(2SPACEJÜH(2SPACE 
Jü H(4SPACEJfl " 

10940 G$(6,5)=“H{2SPACEJü H{2 SPACE>'o'o'o'o'q'o'o 
‘5TT5' {2SPACE > " 

10950 GS(6,6 > ="E555H{2SPACE >rADAC CHINAT " 

10960 GS(6,7)=" {3SPACEJH{3SPACE JlTAiWulAAlU 
Ü7 " 

10970 G*( 6 , 8 )="{ 2 SPACE>nnnrouDTnniDUDüiJüTJU'' 

10980 GS(6,9>="{2SPACEJf HUA CHANG FU WER" 

10990 GS (6,10)=" {2SPACEJIWoVoWoWoWoWo' 

11000 GS (6,11) = " {2SPACE>f •5 , ffcr0'{5SPACE>?Wp■ 
PPP“ 

11010 GS(6,12)="HÜ'CTffi{2SPACEJ'j'fl.YJ’HTTT{5SPA 
CE J" 

11020 GS(6,13) =“ {2SPACEJtl'+Tf(2SPACE TTTTiTTHT 
TT {5SPACE > “ _ 

11030 GS(6,14)="H TT^{2SPACE>THÄTJTTTi.PPWp 

11040 GS (6,15) =" {2SPACE>TT+FT(2SPACE> j’i.’pSHM 


11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 


GS(6,16 > : 
GS (6,17) ! 
GS(6,18) ; 
GS(7,1)= 
+++++" 
GS(7,2)= 
GS(7,3)= 
GS(7,4)= 
GS(7,5>= 
GS(7,6>= 
GS(7,7)= 
GS(7,B>= 
GS(7,9)= 
GS (7,10) • 
G*(7,ll>- 
GS(7,12) ; 
GS(7,13) ; 
GS (7,14)- 


{3SPACE > u uiiuumiiiiaaiimmaai 
{GREEN , SPACE > , +H+V+V+H , +V+V+Ji 



1 ++"+'+ÜTaV+"+ J V^Ü+V+H : i :: i : " 

“I—H-4-+ÜH—I—("H-J+TH+K'+'+'-f“ 

+++++öv+>h++++H++++ 11 

: ■' +tl+N'+++4- B 4- ++ K C CC -j.-4--l.--t '' 

+iiTJl+++ST+liT+fl++y+ " 

=■■ y++vüT+s+a++yt-'flTT{2spACE > 


11220 GS(7,15 > ="{6SPACE,BLACK,RVSON,3SPACE 
,RVOFF,GREEN,4SPACE JYTT{4SPACE>" 

11230 GS(7,16 > =“{6SPACE,BLACK,RVSON,3SPACE 
,RVOFF,11SPACE>" 

11240 GS (7,17)="{6SPACE.RVSON,3SPACE.RVOFF 
,11SPACE>" 

11250 GS(7,18)="{6SPACE,RVSON,3SPACE,RVOFF 
,11SPACE>" 

11260 GS(8,1)=" m{2SPACE > Nnxw {2SPACE1 KU {3 
SPACE JHü{YELLOW Jfi{BLACK, SPACE > " 

11270 GS(8,2)="H{2SPACEJflH H(2SPACEJflH{2SP 
ACEJÜ H{2SPACEJfl " 

11280 GS <8,3> = " Hü J1N{4SPACE>WW H(4SPACEJ 
ü" 

11290 GS < 8,41="H{2SPACE JÜH{5SPACEJH(2SPACE 
>Ü{6SPACE>" 

11300 GS(8,5)=" HÜH Hü Hü{2SPACE>H{2SPACE> 
HÜHÜ " 

11310 GS(8,6)="H{2SPACE>ÜH{2SPACE>H{2SPACE 
>ÜH Hü H{2SPACEJÜ" 

11320 GS(8,7)="{4SPACEJü 7WPYÜHHÜH VTF" 

11330 GS (8,8) = " (5SPACE>H'++V+'HHH{2SPACE JÜHT 

4 -+" 

11340 GS (8,9)=" •p-p-p’p-p'OYVYP LpWP0Y7£" 

11350 GS(8,10>=" 

11360 GS(B,11)= 

11370 GS(8,12)=“TjJ Kk'g'kW+V+V+V+V TTk - " 

113B0 GS(8,13)="TTT VTkVkW++V+V++V TTiT" 

11390 G*(B,14)="TTJ J,'x'g‘kW+V+V 4-V+V tTT 
11400 GS(8,15)=" +1JH k'g'k'gV+’+V+'+V+VH T' 

11410 GS(8,16) =" +4TYYYYY+yV4yv+V+YYY" 

11420 GS(8,17)="3 


11430 gs(8, 18 )=" 

<226> 11440 GS (9,1)= ’‘Vp'p'p'P'{2SPACE JI {2SPACE JWAS {2 

SPACE JHT4SPACE >" 

11450 G*(9,2)='Ta TSTT{2SPACEJHERE{3SPACEJTT 
<045> {4SPACEJ" 

11460 GS (9,3) = " raeTÜR{9SPACE >TT{2SPACE J?T" 
<088> 11470 G*(9,4)="rS rSH{9SPACEJTK2SPACE JETT" 

114B0 GS <9,5> = “YWYY{3SPACE>HILFE{2SPACE>TT 
<082> HgR" 

11490 GS (9,6)="W0{13SPACEJTT H£TJ" 

<211> 11500 GS(9,7 > ="{2SPACEJIST{10SPACE >T? (2SPAC 

EJfiTT" 

<072> 11510 GS (9,8) = " {5SPACEJDER {7SPACEJTT HÜTT" 

11520 GS(9,9)="{8SPACEJAUSGANGH{3SPACE>H" 

< 184> 11530 GS(9,10)=" {15SPACEJTTWOH " 

<031 > 11540 GS(9,11)="{15SPACE>TT{2SPACEJ YY" 

11550 GS(9,12)=" ■p-p'p-p-p'pVr'p'p'p'P'P'P'P'MU IN " 

<111> ACK Jfi ICH" 

11570 GS(9,14)="{ORANGEJTT{3SPACE,WHITE JÖT? 

< 174 > 0{ORANGE, 3SPACE J'+V+V+XBLACK JH??? " 

<062> 11580 GS(9,15 > ="{ORANGEJT(3SPACE,WHITEJHS 

<217> OülORANGE,6SPACEJYT{BLACKJÜ<2SPACEJ" 

11590 GS (9,16) =" {ORANGE J TW {SPACE, WH ITE Jl? 

< 140> 1 H{ORANGE,5SPACEJT+T+{BLACKJü " 

11600 GS (9,17 > = " {ORANGE JTTT{SPACE, WH ITE JüiT 
<251 > WH {ORANGE, 7SPACE JTT+{BLACK Jü" 

11610 GS(9,18> = "{ORANGEJTT{3SPACE,WHITEJf® 
<038> H {ORANGE , 5SPACE J +y+V++V{BLACK J " 

11620 GS(10,1> ="{BROWN,BLACKJfl{BROWN,RVSON 
<073> ,19SPACEJ" 

11630 GS(10,2)="{RVSON,SPACE,RVOFF,BLACK Jü 
<175 > {BROWN,RVSON,17SPACE,RVOFF,BLACK JH" 

11640 GS(10,3)="{RVSON,BROWN,2SPACE,RVOFF, 
<174> BLACKJfi{BROWN,RVSON,15SPACE,RVOFF,BL 

<154> ACK>H{RVSON,BROWN,SPACEJ" 

<138> 11650 GS(10,4)="{RVSON,3SPACE,RVOFF,BLACKJ 

<030> ü{BROWN,RVSON,13SPACE,RVOFF,BLACKJH{ 

RVSON,BROWN,2SPACEJ“ 

<121> 11660 GS(10,5)="{RVSON,4SPACE,RVOFF,BLACKJ 

<065> ü{BROWN,RVSON,11SPACE,RVOFF,BLACKJH{ 

<022> RVSON,BROWN,3SPACEJ" 

<061> 1lf’ GS(10,6)="{RVSON,5SPACE,RVOFF,BLACKJ 

< 202 > fl{BROWN,RVSON,2SPACE,RVOFF,BLACK JHW 

<162 > 7Ü{BROWN,RVSON,2SPACE,RVOFF,BLACKJH< 

<173> RVSON,BROWN,4SPACE J" 

<145> 11680 GS(10,7)="{RVSON,6SPACE,RVOFF,BLACKJ 

<218> ÜH+T++THH {BROWN,RVSON,5SPACEJ" 

<154> 11690 GS(10,8)="{RVSON,7SPACE,RVOFF,BLACKJ 

<052> W+V+V+Vrf {BROWN , RVSON , 5SPACEJ" 

<059> 11700 GS(10,9)="{RVSON,7SPACE,RVOFF,BLACKJ 

<202> TT+yF+yPff {BROWN , RVSON , 5SPACE J " 

11710 GS(10,10)="{RVSON,7SPACE,RVOFF,BLACK 
<007> JTT+V+V+VH {BROWN , RVSON , 5SPACE J " 

11720 GS (10,11)=" {RVSON,6SPACE,RVOFF,BLACK 

< 190> > H'+V+V+V+Vh 1 (RVSON, BROWN, 4SPACE J ” 

11730 GS(10,12)="(RVSON,5SPACE,RVOFF,BLACK 
<1S5> JHYYYYYYYYYÜ{RVSON,BROWN,4SPACE J“ 

11740 GS(10,13 > ="{RVSON,4SPACE,RVOFF,BLACK 
<052 > JH(RVSON,BROWN,11SPACE,RVOFF,BLACK JH 

(RVSON,BROWN,3SPACEJ" 

<063> 11750 GS(10,14)="{RVSON,3SPACE,RVOFF,BLACK 

JH<RVSON,BROWN,13SPACE,RVOFF,BLACK Jü 
<116> (RVSON,BROWN,2SPACEJ" 

11760 GS(10,15)=“(RVSON,2SPACE,RVOFF,BLACK 
<180> JH(RVSON,BROWN,15SPACE,RVOFF,BLACK Jü 

{RVSON,BROWN,SPACE J” 

<190> 11770 GS(10,16)="{RVSON,SPACE,RVOFF,BLACKJ 

H(RVSON,BROWN,17SPACE,RVOFF,BLACK Jü" 
<149> 11780 GS(10,17)="(BLACKJH(RVSON,BROWN,19SP 

ACE,RVOFFJ" 

<062> 11790 GS(10,18)="(RVSON,BROWN,20SPACE.RVOF 

F,BLACKJ" 

<174> 11800 FOR 1=1 TO 14:GS(11,I)=GS(10,I>:NEXT 

<250> 11810 GS(11,15)= "(LIG.BLUE,SPACEJT(5SPACE 

J—(3SPACE J W? (4SP ACE !??" 

<255> 11820 GS (11,16) ="++T? T+*~ ’+V+'+V(2SPACEjy? 

<139> T" 

< 106> 11830 GS (11,17)=" V+'+V+V+V+V+V+V+V+V+V<BLAC 

<179> KJ" 

<220> 11840 GS(11,18)=GS(11,17) ’ 

<231> 11850 GS(12,1)="(RVSON,20SPACEJ" 

<034> 11860 GS(12,2)="{RVSON,20SPACEJ" 

<049> 11870 GS(12,3)="Ü{1BSPACEJH" 

<204> 11880 GS(12,4)=" Ü{16SPACEJH " 

<062> 11890 GS(12,5)="(2SPACEJÜ(14SPACEJH(2SPACE 

>" 


<073> 

< 119> 

< 171 > 

< 14B> 
<236> 

<031 > 
<244> 

< 123> 
<069> 
<005> 
<215> 
< 220 > 

< 147> 

<060> 

< 114> 
<121 > 
<216> 
<245> 

< 179> 

< 154> 

< 164> 

<235> 

<097> 

<108> 

< 000 > 

< 146> 

< 117> 

< 128> 
<203> 
<035> 

< 134> 

<235> 

<246> 

< 001 > 

< 101 > 

< 112> 

< 173> 
<201 > 

<090> 

< 155> 

< 148> 

< 133> 
<252> 
<007> 
<155> 

< 166> 

< 177 > 
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Listings 


Adventure 2000 


Listing »Adventure 2000« (Fortsetzung) 

11900 GS(12,6)=" <2SPACE> HYWyYYYVVYYYyYb ' <2 

SPACE >" <111> 

11910 GS(12,7 > ="<2SPACEJT< 14SPACEJT<2SPACE 

>" <151> 

11920 GS(12,8)=" <2SPACEJW<14SPACEJT<2SPACE 

>“ <147> 

11930 G*(12,9)=" <2SPACEJT<14SPACEJT<2SPACE 

>" <153> 

11940 GS <12,10)=" <2SPACEJW<14SPACEJH<2SPAC 

EJ“ <207> 

11950 GS(12 ,11)=" <LIG. BLUEJ’ T-lV^VVf - V+y+V-V 

V+V+V" <077> 

11960 GS(12,12) = "<134> 
11970 GS (12,13) = "TTT+'+V+V+Y+V+V+V+Y+V" <147> 

11980 GS(12,14)=" +V+V^V+VfV+W£-+V+V+V" <158> 

11990 GS (12,15) = "<169> 
12000 gs< 12,i6) ="<i76> 
12010 GS (12,17)="V+'+'+'+V+VV+V+VV+V+V+V <185> 

12020 GS(12,18)=" VV^VVVV-VtVV-vVf - +V+VV <BLAC 

KJ" <142> 

12030 FOR 1=1 TO 18:GS<13,I)=GS(12,I>:NEXT <183> 
12040 FOR 1=1 TO 18:6* (14,1)=GS(13,1):NEXT <196> 
12050 GS C14,3 > = "fl<4SPACE, BROWN J -p>Vp-p-pVp <BL 

ACK,6SPACEJH" <239> 

12060 GS<14,4>=" fl<3SPACE,BROWNJHC2SPACE,B 
LACK JTT<BROWN,2SPACEJH<BLACK,5SPACEJ 
H “ <166> 

12070 GS<14,5>=" <2SPACEJfl<3SPACE,BROWNJflp-p 

TTH <BLACK,5SPACE JH<2SPACE J" <228> 

12080 GS(15,1)=“<11SPACE JH<3SPACE JH<4SPACE 

J" <130> 

12090 GS<15,2)="<20SPACEJ" <223> 

12100 GS(15,3)=“ <5SPACEJTP<4SPACEJH<3SPACE 

JH<4SPACEJ“ <246> 

12110 G*<15,4>=“<5SPACEJÜTfl?T H<8SPACEJ" <106> 

12120 GS(15,5)=" WfiH7VT++8fi<9SPACEJ" <067> 

12130 GS(15,6) =” W+TT'+V+V <2SPACEJfl<8SPACEJ 

" <012> 


12140 GS (15,7)=” RHÜ+T+'+V £H<3SPACE J&<4SPA 

CE >“ < 001 > 

12150 GS (15,8) =" <4SPACEJ79VW77<4SPACEJH<4 

SPACEJ“ <249> 

12160 GS(15,9)=“< 15SPACEJH<4 SPACEJ" <003> 

12180 GS<15,11)="<RVSON,GREEN,SPACEJÄ<1BSP 

ACEJ" <113> 

12190 GS(15,12)="<RVSON,GREEN,SPACEJÄ<4SPA 
CE JHX <3SPACE JHHÄ<SPACE,RVOFF,BLACK JH 
<RVSON,GREEN,SPACEJHX " <141> 

12200 GS(15,13)="«VSON,GREEN,SPACE JX<6SPA 

CE J H <8SPACE J H<2SPACE J" <055> 

12210 GS < 15,14 > = "«VSON,GREEN,SPACE,RVOFF, 

BLACK JTHH<RVSON,GREEN,3SPACE,RVSON,G 
REENJT<RVSON,GREEN,2SPACE,RVOFF,BLAC 
K JHHT<RVSON,GREEN,2SPACE,RVOFF,BLACK 
JH<RVSON,GREEN,SPACEJTH " <146> 

12220 GS(15,15)="<BLACKJH<3SPACEJflHH HH<3S 

PACE Jfl‘pTH<2SPACE Jfl" <122> 

12230 GS (15,16)=" <8SPACE JV 55"cfi?<6SPACE J" <017> 

12240 GS<15,17)=“<9SPACEJHHHSTfl<5SPACEJ“ <055> 

12250 GS (15,18)=" <9SPACE JHTWTH <5SPACE J " <005> 

12260 GS(16,1> ="11<1BSPACEJH" <036> 

12270 GS(16,2)=" fi< 16SPACEJH " <047> 

12280 GS(16,3)=" <2SPACEJH<14SPACEJH<2SPACE 

>" <058> 

12290 GS <16,4)="<3SPACEJH <12SPACEJH <3SPACE 

>“ <070> 

12300 GS <16,5 > ="<4SPACE JH<10SPACE JH <4SPACE 

>" <081> 

12310 GS <16,6)=" <5SPACEJH<8SPACEJH<5SPACEJ 

" <092> 

12320 GS(16,7)=" H0<3SPACEJH<6SPACEJH<2SPA 

CEJH H " < 140> 

12330 GS(16,8)=" CHI<3SPACEJH<4SPACEJH<4SP 

ACE J£<2SPACE J" <008> 

12340 GS(16,9)=" MINH<3SPACEJflW£<4SPACEJ£ 

££ " < 100 > 

12350 GS <16,10)=" WAS<4SPACE J L O PO mspftHF J<036> 
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Adventure 2000 


Listings 


12360 GS(16,11)=" HERE. fl(4SPACEifl{7SPACEi 


12370 

12380 

12390 

12400 

12410 

12420 

12430 

12440 

12450 

12460 


GS(16,12) 
>" 

GS(16,13) 
>” 

GS(16,14) 
Ei” 

GS(16,15) 
Ei” 

GS(16,16 > 
Ei” 

GS(16,17) 
GS(16,18) 
GS(17,1>= 
GS(17,2) 
GS<17,3) 


="(6SPACElß(6SPACElfl(6SPACE 

= " (5SPACEiß(8SPACEiflC5SPACE 

="(4SPACElß{10SPACE>fl(4SPAC 

= "13SPACE lß( 12SPACEiß (3SPAC 

="(2SPACEiß <14SPACEiß C2SPAC 

= “ ß{16SPACEifl " 

= " ß( 18SP ACE iß" 

“fl(lSSPACElß“ 

” fl(16SPACElß “ 

” (2SPACE IWfYfYUÜYlYYWT-rVM 


12470 G*(17,4>= M f2SPACEiH<15SPACEITT “ 
(4SPACE1B *' 

12490 GS(17,6>="(2SPACE1B ß B(5SPACE1B fl(3 
SPACE ITT ” 

12500 GS(17,7) 

CE1B ” 

12510 GS(17,8> 

SPACE ilT 
12520 GS(17,9) 

CEiflE" 

12530 GS(17,10>=" 

Eiß” 

12540 GS(17,11)= 

12550 GS(17,12) 


ß B ßSfl(3SPACE >ßSß B(2SPA 
fl B (4SPACE1B B<4SPACE1RC2 


AC2SPACE iß fl H B ß ß<3SPA 


B(3SPACElfl ÖH Bß ß(5SPAC 


“ .ßujgaiß H B ß -UJU». B" 
HiSiK.7YflBßY7yi!LäJ(.W 
12560 GS(17,13)=“ H(3SPACE}K1LLROY(6SPACE> 
ß " 

12570 GS(17,14)=" T(5SPACEiWAS(7SPACElß(2S 
PACEi" 

12580 GS(17,15)=“ B(4SPACEiHERE! !C5SPACEifl 
(2SPACE1" 

12590 GS(17,16)=” MOfiPIt?P’opi?P10O(?P(?G ” 
12600 GS (17,17)=” ß( 1 6SP ACE iß “ 

12610 GS(17,18)="ßC18SPACEiß” 

12620 GS(1B,1)="F ßBFBF F F F F F T " 

12630 GS(18,2)="FßBBFBF F Fp'pVpVp' F ” 

12640 GS(18,3)="ßßBBFflF F B B(4SPACEiBF ” 
12650 GS (18,4) = ”ß HB+V+' F B B<4SPACE>BF “ 
12660 GS (18,5)=” (2SPACE1BBFSF F B RC4SPACE 
>BF " 

12670 GS (18,6) =”ß BBWF F B B(4SPACE1BF “ 
12680 GS (18,7) =” ßBBWF F B B(3SPACE1BBF " 
12690 GS(18,8) ="ß BBFW+ F B H(3SPACEIßBF “ 
12700 GS(18,9)="(2SPACE1BHFBF F B HC4SPACE 
>BF " 

12710 GS (18, 10) =”H BB+V+ 1 F B B(4SPACE1BF “ 
12720 GS(18, 11)=" HKgVM? F B(SHIFT—SPACEii. 
P"PPPB+' " 

12730 GS(18,12)="ß BB+B+ T Bß (5SPACEiBF " 
V" 

12750 GS (18, 14) =“ß i.B’ß<5SPACEi??T p - p - p ' PWP ‘' 
12760 GS(18,15)=" 

12770 GS(18,16)=" 

12780 GS(18,17)=" 

12790 GS (18,18) ="fl<5SPACEifl +VV+V+V+y+y+V " 
12800 GS(19,1)="F FFFFFFFBFF" 

12810 GS (19,2)="F Fpp'p’p'pVpVpV F BF F“ 

12820 GS(19,3) ="F ßpVpVp'p'pVßB F BF F" 

12830 GS(19,4)="FT(RVS0N,GREY 1,9SPACE,RV0 
FF,BLACK IBB F BF F" 

12840 GS(19,5)="FT(RVS0N,GREY 1,9SPACE,RV0 
FF,BLACKlBi? F BF F" 

12850 GS(19,6)="FT(RVS0N,GREY 1,9SPACE,RV0 
FF.BLACKiBH F BF F" 

12860 GS(19,7)="FT(RVS0N,GREY 1,3SPACE,RV0 
FF,BLACKIBB(RVSON,GREY 1,4SPACE,BLAC 
K,RVOFFIBB F BF F" 

12870 GS(19,8)=“FT(RVSON,GREY 1,3SPACE,RV0 
FF,BLACKIBET (RVSON,BREY 1,4SPACE,RVOF 
F,BLACK!gB F BF F" 

12880 GS(19,9)="FT(RVS0N,GREY 1,SPACE,RVOF 
F , BLACK !8SJiI55 (RVSON , GREY 1,2SPACE , R 
VOFF.BLACK1BB F BF F" 

12890 GS(19,10)="FT(RVSON,GREY 1,SPACE,RVO 
FF , BLACK > VYAS.YV(RVSON , GREY 1 , 2SPACE , 
RVOFF,BLACKiBB F BF F" 

12900 GS(19,11)=“5T{RVSGN,GREY 1,SPACE,RVO 
FF,BLACKiß(RVSON,GREY 1,SPACE,RVOFF, 


< 012 > 

< 197> 

<208> 

<219> 

<230> 

<241 > 
<252> 
<007> 
<21B> 
<229> 

<021 > 

< 181 > 

< 11S> 
<216> 
<042> 

< 182> 

< 106> 

<223> 

< 154> 
<035> 

< 134> 

< 101 > 

< 222 > 
<031 > 

< 178> 

< 189> 

m 

<099> 

< 160> 

<221 > 

< 191 > 

< 112 > 

< 163> 

<009> 

<018> 

< 121 > 
<057> 

< 126> 
<'166> 
<106> 
<027 > 
<2$4> 
<225> 
<209» 
<107> 
<203> 

<247> 

<239> 

<013> 


<047> 


<043> 


<039> 


< 156> 


BLACK IBB (RVSON,GREY 1,4SPACE,RVOFF,B 
LACK1BB F BF F" 

12910 GS(19,12)="FT<RVSON,GREY 1,3SPACE,RV 
OFF , BLACK 1 WB (RVSON , BREY 1 , 4SPACE , RVO 
FF,BLACKiBB F BF F" 

12920 GS(19,13)="FT(RVSON,GREY 1,9SPACE,RV 
OFF,BLACKiBB F BF F" 

12930 GS(19,14)= " Ft*(RVSON, GREY 1,9SPACE,RV 
OFF, BLACK iBB F BF F" 

12940 GS(19,15>="FT<RVSON,GREY 1,9SPACE,RV 
OFF,BLACKiBB F BF F“ 

12950 GS(19,16)="YYYYYYYYYYYYYYYYYfl F" 
12960 GS ( 19 , 17) = “ p-p'p'P'p"P'p'P"p'p'P'p'p'PP'<3SPACEiflF 

M 

12970 GS(19,18)= 

12980 GS(20,1)=" B(18SPACEi" 


<036> 


B 1<4SPACEi2<4SPACE13<4SP 


12990 GS(20,2)= 

ACEi4 “ 

13000 GS (20,3) = " B.U.*.»J. U.C.C.X. (SHIFT-SPACE l.U.C. 

(SH I FT-SPACE l .U.C C " 

13010 GS(20,4)=" Bfl(RVS0Nl£F(RV0FF12 flflflSl 
SH I FT-SPACE I B.UIJK SH I FT-SPACE i SS (RVSO 
NiBtRVOFFi“ 

13020 GS(20,5)=" BSCRVSON,2SPACE,RVOFFiß M 
ßflflfSHIFT-SPACEißJJLSCSHIFT-SPACEißßfl 

13030 GS (20,6)=" B.J.C.C.K. JCCK CSHIFT-SPACE 13C 
£A<SH I FT-SPACE i J.CC " 

13040 GS(20,7)=" B 8C4SPACE19<6SPACEi10€3S 
PACEI" 

13050 GS (20,8)=” U-UC.C.I.{SHIFT-SPACE> VCC I. (2S 

13060 GS(20,9)=" BÄtlä ß <RVS0N1SF<RV0FF15< 
2SPACE IßCSPACE , RVSON üFtRVOFF 1TB2" 

13070 GS (20, 10)=" BJäOOß A0P.B <2SPACEIS{SPAr, 
E , RVSON , 2SPACE, RVOFFlTBa" 

13080 GS ( 20 ,11)=" B.J.C_C.K.<SH I FT-SPACE 1 J.CCK <2 
SHIFT-SPACEIßCSPACE,RVSON,2SPACE,RVO 
FF 1 TBS" 

13090 GS(20,12)=" BOYY VYWYW £S(SPACE,RVSO 
N,2SPACE,RVOFF1TB2" 

i,32™ 0 ’ gs( 20 ,i3>=" BBaaa a b bbs<space,rvso 
N l£F£RVOFF>TBS" 

13110 GS (20, 14) = " BBBB .a.a<2SPACE 1MH CT.J.CCC.C.C 

A" _ _ 

BBBB tfpoTpBB flYWYY" 

BLp p p p p p p pTg Lp'p'p'p'p " 


< 141 > 

< 129> 

< 121 > 

< 151 > 
<017> 

<054> 

<225> 

< 011 > 

<224> 

<034> 


<065> 


<052> 


<035> 


<031 > 


<237> 


<049> 


<090> 


<054> 

<057> 

< 195> 

< 020 > 

<236> 

< 188 > 
<073> 
<090> 
<248> 


13120 GS(20,15)=" 

13130 GS(20,16)=" 

13140 GS(20,17)=“ 

13150 GS(20,18)=" 

13160 GS(21,1)="flf6SPACElßßB<9SPACEiß" 

13170 GS(21,2)=" ß<5SPACE,RVSONiß(RVOFFiß< 

9SPACElß “ <252> 

131B0 GS(21,3)="<2SPACE}fl{14SPACEiß<2SPACE 

>“ <190> 

ACE1" <253> 

13200 GS(21,5)=“{3SPACE1B<3SPACE<4SP 

ACE y@ {3SPACE1“ <188> 

13210 GS(21,6)="fl<2SPACElB<2SPACElBST0 P!gC 

3SPACE1B < 3SPACEi“ <019> 

13220 GS (21,7) = " fl BC3SPACEl' ö ' O ' Q ' O ' O '<4SPACEig 

<3SPACEi“ <008> 

13230 GS(21,8)="WBB<2SPACEir B<3SPACE}T<3 

SPACE1S <3SPACE1" <234> 

13240 GS(21,9)="<2SPACEiBB<2SPACEir BC3SPA 

CEIT C3SPACE1B<3SPACE1" <135> 

13250 GS(21,10)="C2SPACEiBB{2SPACElT BBB T 

<3SPACE1BC3SPACE1“ < 001> 

13260 GS(21,ll)="?TBB<2SPACEir B7£ T<3SPAC 

E1BC3SPACE1" <169> 

13270 GS(21,12)=" ß B<2SPACElt B<3SPACE1T< 

3SPACE1BI3SPACE1“ <248> 

13280 GS(21,13)="ß<2SPACElB<2SPACEir Ap'p'pj' 

<3SPACE1B<3SPACE1" <040> 

13290 GS(21,14)="C3SPACElB<2SPACEirß<4SPAC 

EIT <3SPACE1B<3SPACE1" <090> 

PACEI" <253> 

2SPACE1" <136> 

13320 GS(21,17)=" ßFVV+VFFFFFFFFFFV fl " <224> 

13330 GS(21,18)=“ ßFFFFFFFFFFFFFFFFFF fl" <055> 

13340 GS(22,1> ="FFFFFB{SPACE,RVSON,WHITE1A 

♦(BLACK,RVOFFIflYYYYYYYYflB" <116> 

13350 GS (22,2 ) = " FFFFFB (SPACE , RVSON , WH ITE , 2 

SPACE,BLACK,RVOFF 1 tfuWtA/u'u"K B" <004> 
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Listings 


Adventure 2000 


13360 G*(22,3)= "++V-F+WSPACE,RVSON,WHITE,2 

SPACE, BLACK, RVOFFJHYWYWYk' H" 

13370 G$(22,4)="TTV+VYf (SPACE,RVSON,WHITE,2 
SPACE , BLACK, RVQFF > Ü OTWUUUy TT" 

13380 G*(22,5)="T OT+TKRVSON,WHITE}£(BLACK 
>SS<WH I TE >¥(BLACK , RVOFF , 7SPACE >Tf TT" 

13390 G*(22,6)=" 3T(2SPACE >7TT(RVSON,WHITE,4 
SPACE , BLACK , RVQFF > H Y YWWk ' TT" 

13400 G*(22,7)= ”TT(2SPACE >TTT(RVSON , WH I TE , 4 
SPACE, BLACK, RVOFF JTJTJUDTJUUTf TT" 

13410 Gt(22,8)="Tf(2SPACE>7H(RVSON,WHITE,4 
SPACE, BLACK, RVQFF > VYYYVWk H" 

13420 G*(22,9)="TT HM(SPACE,RVSON,WHITE,4S 
PACE, BLACK , RVOFF T HVYyWYk ' H" 

13430 GS(22,10 > ="TTHH(2SPACE,RVSON,WHITE,4 
SPACE, BLACK, RVOFF >WATUIA/UY TT" 

13440 GS(22,11)="TTM(3SPACE,RVSON,WHITE,4S 
PACE,BLACK,RVOFFJHYTWWiT TT" 

13450 GS(22,12)="TK£4SPACE,RVSON,WHITE,4SP 
ACE.BLACK,RVOFF> OWiAjWk ' TT" 

13460 GS(22,13)="H(5SPACE,RVSON.WHITE,4SPA 
CE, BLACK, RVOFF , 7SPACE >Tf TT" 

13470 GS(22,14)="(5SPACE,RVSON.WHITE>£(4SP 
ACE >TT(BLACK, RVOFF J'p’p’p’p(2SPACE >TT TT" 

13480 GS(22,15)="(4SPACE>H(RVSON,WHITE,6SP 
ACE, BLACK, RVOFF,3SPACE>HTT TT TT" 

13490 GS(22,16)="(3SPACE>H(2SPACE,RVSON,WH 

I TE >&g£S(BLACK, RVOF F ,3SPACE >H TT TT H" <125> 

acejtt’h" 

13510 GS (22,18)="(2SPACE}TJ(9SPACE}RH(3SPAC 
E>TT TT" 

13520 GS (23, 1) = " (10SPACE JTpHYTYII'pT " 

13530 GS(23,2)=" (9SPACEJTJPARADISVMTT" 

13540 GS(23,3)="(4SPACE,YELLOW>HTWfl(BLACK 
>WYÜpTPMYYTT" 

13550 GS(23,4)="(4SPACE,YELLOW>fl£3SPACE>H< 

BLACK Jfl(7SPACE,YELLOW}fi(BLACK,SPACE > 

■L" 

13560 GS(23,5 > =" (4SPACE , YELLOW .SPACE )WY!B 
LACK, SP ACE >TT HQMQMfl ( 3SPACE > " 

13570 GS(23,6)="(4SPACE>ÜS£2OTii(2SPACE >UH( 
2SPACEIJlK.il." 

13580 GS (23.7) = " (3SPACE> MHS 8KH MTTpÖpWpp" 

13590 GS(23,8)=" (3SPACEJHG (3SPACE>TJÖMHT?++T 


<030> 


<026> 


< 128> 


<091 > 


<0B6> 


<126> 


<185> 


<219> 


<040> 


< 109> 


< 202 > 


<075> 


<09B> 


<075> 

<028> 
<244> 
< 136> 

<094> 


<252> 

< 124> 

< 022 > 
<252> 


13600 GS(23,9)= ,,- pT£ Klfgl 

13610 GS(23,10) =" TTTT Hß‘?HüH2STT(3SPACE}TT(3S 
PACE>" 

13620 GS (23,11)=" HÖTJ(4SPACE>TT A3H P TT(3SP 
ACE > " 

13630 GS(23, 12) =" fl-pY(4SPACE>RHa£R HTTTT(3SP 
ACE > " 

13640 GS(23,13)="(3SPACE>ü(4SPACE>TJHÜHf4SP 
ACEJTT<3SPACE J" 

13650 GS(23,14)=" (3SPACE>TT(4SPACE>TTH(6SPAC 
E>TT<3SPACE>" 

13660 GS (23,15)=" £3SPACE>TT(4SPACE>TTTTC2SPAC 
E >E INGTTANG " 

13670 GS (23,16) =" (3SPACE JR(4SPACE>TJTT(6SPAC 
E >TT (3SPACE > " 

13680 GS(23,17)=“ (4SPACE>fi5WHL?PPp , pp'pypp" 

13690 GS (23,18)=" (3SPACE JJJJ.T riU.(10SPACE> " 

13700 GS(24,1)="(6SPACE > TFSTZ?< 8 SPACE>" 

13720 GS (24 ’ 3) =" £4SPACE>T-+-f++V+V+V{6SPACE > 
E>“ ’ PACE 

13740 GS(24,5)="(2SPACEJ+V+V+V++V+VV+V(4SP 
ACE > " 

13750 GS (24,6) =" (2SPACE> , + ~- ( - V+W+WtVV4-V (4SP 


F£5SPAC 


ACE } " 

13760 GS(24,7)="£3SPACE>q 
E>" 

13770 GS (24,8) = •• (4SPACE >+V+V+V+V+V£6SPACE > 

13780 GS(24,9)="(8SPACE JTT(10SPACE>" 

13790 GS(24,10)="(6SPACE>HY++Yfl(8SPACE>" 

13800 GS(24,11)="(6SPACE>fl£££SH(2SPACE,SHI 
FT-SPACE,5SPACE>" 

13810 GS(24,12)=“£8SPACE}-FF{10SPACE>" 

13820 GS(24,13)="(5SPACEJTT TT TT£7SPACE>" 
13830 GS (24,14) = " (3SPACE>TTTT TT TTTT£5SPA 
CE>" 

13840 GS(24,15)=" TTTTTT TT 


<138> 

< 103> 

< 010 > 

< 126> 
<058> 

< 158> 
<235> 
<239> 

< 001 > 

< 154> 
< 002 > 
<030> 

< 105 > 

< 192> 
<023> 
< 110 > 

► 

< 121 > 

<056> 

<247> 

< 210 > 

<013> 

< 010 > 
<026> 
< 189> 

<097> 


<004> 


13850 GS (24 , 16 > = " (2SPACE >TTTTT(4SPACE JTTTT 

T(4SPACE>" <119> 

CE>" ’ ++++++++++++ £ SPA 

13870 GS(24,18)="(20SPACE>" <017> 

13880 FOR 1=1 TO 24:READ LOS(I):FOR X=1 TO 

6:READ LO(I,X>:NEXT:NEXT <001> 

13890 FOR 1=1 TO 33:READ GIS(I),G2S(I),G(I 

),T(I>:NEXT <108> 

13900 FOR 1=1 TO 18:READ VS(I):NEXT:FOR 1= 

1 TO 6:READ RS(I):NEXT <027> 

13910 FOR 1=1 TO 6:A=INT(RND(0)*10):COS=CO 

S+STRS(A):NE XT:COS=RIGHTS(COS,LEN(CO 
S)-l> <231> 

13911 LO=l:RETURN <211> 

13920 DATA BEIM PRAESIDENTEN,,,,,,,VOR DER 

GROSSEN CHINESISCHEN MAUER,,,,3, 

,0 <056> 

13930 DATA AN EINER ABZWEIGUNG,0,2,5,4,,,A 

N EINER WEGBIEGUNG,,3,6,,, <110> 

13940 DATA AM ENDE DES WEGES,3,,,,,,VOR HU 

CHANG FU'S WERKSTATT,4,0,0,0,0,0 <14B> 

13950 DATA AUF DEM BAUM,,,,,,5,AUF DER MAU 

ER,,,,,,, IM KERKER,,,,,,0 <U0> 

13955 DATA IN EINEM GEHEIMGANG,,,,9,,0 <126> 

13960 DATA"IN EINEM GEHEIMGANG, IN DEM DAS 

WASSER KNIEHOCH STEHT",,,10,,,0 <006> 

13970 DATA IN EINEM GROSSEN UNTERIRDISCHEN 

SEE,13,12,12,13,11,0 <157> 

13980 DATA IN EINEM GROSSEN UNTERIRDISCHEN 

SEE,13,12,12,14,0,0 <11B> 

13990 DATA IN EINEM GROSSEN UNTERIRDISCHEN 
SEE,12,13,13,12,0,0,UNTER WASSER,,,, 

,,0 <070> 

14000 DATA IN EINEM FINSTEREN GANG,17,,,,, 

14,AM ENDE DES GANGES,,,16,,,0 <020> 

14010 DATA IM BUERO VON LT. MC PERKINS,17, 

19,,,,,IN EINER SEITENECKE,,,,18,,0 <132> 

14020 DATA IN EINEM UEBERWACHUNGSRAUM,0,21 

,,19,,0,IN EINER SICHERHEITSSCHLEUSE <140> 
14030 DATA 22,,,20,,,IN EINEM RAKETENSILO, 

,,21,,,,IM HIMMEL,,,,,,,0 <190> 
14 r " DATA EINE MAPPE,MAP,1,1.EINE WACHE,W 

AC,3,0,EINE BETAEUBTE WACHE,X,0,0 <226> 

14050 DATA EINE I.D. KARTE,KAR,0,1.EINEN B 

AUM,BAU,5,0,EINE PISTOLE,PIS,0,1 <158> 

14060 DATA EIN HUFEISEN,HUF,0,1,HUA CHANG 
FU,HUA,6,0,EINEN REPARIERTEN RAKETEN 
RUCK <137> 

14070 DATA X,0,1,EIN SKELETT, SKE, 7,0, EINEN 
RAKETENRUCKSACK, RUC , 0,1 , EINEN WACHT 
RUPP <214> 

14080 DATA TRU,8,0,EINEN KRUG,KRU,9,1.EINE 
N RING IN DER MAUER,RIN,0,1.EINEN GA 
NG <102> 

14090 DATA GAN,0,0,EINEN OFFENEN KRUG,X,0, 

l.EINE BLEIPLATTE,PLA,10,1 <138> 

14095 DATA EINEN FELSBLOCK,FEL,10,0,VIEL S 
AND,SAN,0,0,EINEN PRESSLUFTHAMMER,HA 
M <032> 

14100 DATA 11,0,EINEN KNOPF,KNO,0,0,EINE G 

UMMIENTE,ENT,13,l.EINE LUKE,LUK <255> 

14110 DATA 14,0,EINE OEFFNUNG,OEF,0,0,EINE 
N STEIN,STE,15,1,LT MC PERKINS,PER,1 
8,0 <157> 

14120 DATA EINEN ANHAENGER,ANH,0,1.EINEN E 

TWAS WEGGETRETENEN LEUTNANT,LEU,0,0 <190> 

14130 DATA EINE PANZERTUER,TUE,19,0.EINEN 
RITZ,RIT,0,0,EINE OEFFENE PANZERTUER 
,X <185> 

14140 DATA 0,0,VIELE BILDSCHIRME,BIL,20,0, 

EINE TASTE,TAS,0,0 <208> 

14160 DATA GEH,NIM,LEG,SCH,WER,GEB,STA,ZIE 

,OEF,LES,WAE,DRU,KLE,RUF,FUE,STE,TRI <206> 
14170 DATA SIE,NORDEN,OSTEN,SUEDEN,WESTEN, 

HOCH,RUNTER <232> 

14180 FOR YY=1 TO 2000:NEXT:RETURN <155> 

14370 PRINT"ICH BIN TOT." <009> 

14380 PRINT"DAS HAST DU JA FEIN HINGEKRIEG 

TM" <002> 

14390 GET A*:IF A*<>""THEN RUN <119> 

14400 GOTO 14390 <002> 


§ 64'er 


Listing »Adventure 2000« (Schluß) 
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Listings 


Quasimodo 


Quasimodo, 
Herrscher 
der Kartanen 

Dieses Abenteuer führt Sie in die Welt 
der Fantasia 31 Räume stehen Ihnen 
auf der Suche nach Quasimodo zur 
Verfügung. Finden und vernichten Sie 
ihn. 

Sie wurden vom Volk der Kartanen bestimmt, den Herrscher 
des Landes aufzuspüren und zu vernichten. Sie wissen von 
ihm nur, daß er Quasimodo heißt und Hexenmeister ist. Als Sie 
sich bereit erklärten, diese schwere Aufgabe zu übernehmen, 
brachten Sie ihre Landsleute durch einen Geheimgang in des¬ 
sen Gewölbe. Nun müssen Sie allerlei Gefahren, wie Monster, 
Leichen und Fallgruben überstehen, um zu Quasimodo vorzu¬ 
dringen. 

Das Programm Quasimodo ist ein Abenteuerspiel, bei dem 
es darauf ankommt, durch Eingabe von Befehlen eine be¬ 
stimmte Aufgabe zu lösen. Diese Kommandos bestehen meist 
aus einem Verb und einem Hauptwort. Hier nun eine Zusam¬ 
menstellung aller möglichen Kommandos: 

NIMM, GIB, GEH, LISTE, HOCH, ZUENDE, SPRING, TRINK, 
DRUECKE, BEFEHLE und OEFFNE. ®* e 

Richtungsänderungen können durch Eingabe der Abkür¬ 
zungen N, S, W, O für Nord, Süd, West und Ost vorgenommen 
werden. Diese werden neben den sichtbaren Gegenständen 
immer auf dem Bildschirm angezeigt. Zum Ablauf des Pro¬ 
gramms wäre noch zu sagen, daß der Computer wichtige 
Spielpassagen akustisch untermalt. 

(Roland Selzer/rg) 

Listing »Quasimodo« 

20 BOSUB 22:GOSUB 700:GOTO 875 <202> 

21 GOSUB 22:FOR 1=1 TO 2500:NEXT:GOTO 875 <123> 

22 PRINT CHR*(147):POKE 53281,0:U=646:R=2 <228> 

25 POKE 53280,0:POKE U,4:T=58640:S1=54272 <103> 

65 FOR L=1 TO 4:PRINT <156> 

70 FOR 1=7 TO 32:READ S:PRINT TAB(I)CHR*(S 

); <164> 

71 NEXT I,L:PRINT:POKE 214,9:P0KE U,1:SYS 

T <217> 

80 PRINT SPC(9)"EIN ABENTEUERSPIEL VON <250> 

81 PRINT SPC(53)"ROLAND SELZER <216> 

82 PRINT SPC(50)“FUER DEN COMMODORE 64 <089> 

83 PRINT SPC(54)"(C) 1984/85 <076> 

84 PRINT SPC(88)"FINDEN UND VERNICHTEN SIE 

":PRINT SPC(51)"QUASIMODO DEN HEXER <017> 

87 PRINT SPC(89)">>>> BITTET2SPACEIWARTEN 

«« < 131 > 

110 DIM G*(99):FOR 1=2 TO 22 STEP 2:READ G 

*(I> ' < 179> 

120 NEXT:V=53248:F=V+17:P=1:RETURN <017> 

600 DATA 117,96,105,105,32,105.117,96,105 <010> 

601 DATA 117,96,105,105,117,105,117,105 <164> 

602 DATA 117,96,105,176,96,105 <252> 

•603 DATA 117,96,105,98,32,98,9B,32,98,98 <009> 

604 DATA 32,98,98,32,98,98,98,98,98,98,98 <092> 

605 DATA 32,98,98,32,98,98,32,98,98,32,98 <069> 

606 DATA 98,32,98,171,96,179i106,96,105 <207> 

607 DATA 98,98,106,107,98,98,32,98,98,32 <015> 

608 DATA 98,98,32,98,106,96 <127> 

609 DATA 109,106,96,107,107,32,107,106 <126> 

610 DATA 96,107,106,106,32,32,106,106 <072> 


611 DATA 96,107,173,96,107,106,96,107 
650 DATA OPFER,PFLANZE,POLIZIST,LAMPE 
660 DATA HAMMER,ORDEN,SCHALTER,DYNAMIT 
670 DATA SCHRANK,BUCH,FLASCHE 
700 FOR L=0 TO 2:READ B:FOR 1=0 TO B:READ 
A 

705 POKE 832+I+L*64,A:NEXT 

710 FOR I=B+1 TO 62:POKE 832+I+L*64,0:NEXT 

I,L 

711 FOR L=3 TO 22:READ B:FOR 1=0 TO B:READ 

A 

712 POKE 14912+I+L*64,A:NEXT 

713 FOR I=B+1 TO 62:POKE 14912+I+L*64,0 
715 NEXT I,L:RETURN 

875 Z*=CHR*(18)+" "+CHR*(146):W*=“C3SPACEJ 

890 X*=CHR*(157>+" ":L*(P>="STE" 

891 FOR 1=1 TO 24:U*=U*+CHR*(175> 

892 V*=V*+CHR*(183):W*=W*+" ":NEXT 

900 POKE F,11:PRINT CHR*(147) 5 :POKE U,11:P 
OKE V+28,255:G*(99)="MONSTER" 

901 FOR 1=0 TO 7:POKE V+I,0:NEXT:POKE V+16 

,0 

902 FOR 1=2 TO 5:PRINT SPC(I>CHR*(109); 

903 PRINT SPC(36-1*2)CHR*(110):NEXT 

904 PRINT SPC( 6 )CHR*(111)V*CHR*(112) 

905 FOR 1=1 TO 8 :PRINT SPC(6)CHR*(165); 

906 PRINT SPC(24)CHR*(167):NEXT 

907 PRINT SPC(6)CHR*(108)U*; 

908 PRINT CHR*(186):FOR 1=5 TO 2 STEP-1 

909 PRINT SPC(I> CHR*(110); 

910 PRINT SPC(36-1*2)CHR*(109>:NEXT 

911 POKE V+23,0:POKE V+29,0:POKE V+40,2 

912 POKE V+21,255:IF R=20 OR R=90 THEN POK 
E V+28,0 

1070 POKE U,11:FOR 1=1 TO 4:R*(I)="":NEXT 

1071 IF R=0 THEN R*=R*+" ":GOTO 1102 

1072 IF R=99 AND MO=0 THEN GOSUB 5800:GOTO 

1101 

1073 IF R=99 THEN 1101 

1075 IF R>5 THEN R*(1)="N-“:GOSUB 3100 
10HU R*=A*:IF R<26 THEN R*(2)=“S-“ 

1090 IF INT(R/5)<>R/5 THEN R*(3) = "0-'':G0SU 
B 3200 

1092 IF G*(R)="LOCH"THEN 4900 

1093 J=R/2: IF JOINT(J)OR G*(R)=“"OR TY=1 
THEN 1095 

1094 ON J GOSUB 5000,5100,5300,5200,5400,5 
500,5600,5700,5900,5960,7000 

1095 B=(R-1)/5:IF LE=1 AND R=2 THEN GOSUB 
5040 

1100 IF INT(B)OB THEN R*(4)="W-":GOSUB 30 
05 

1101 IF R=99 THEN GOSUB 6540 

1102 G*=G*(R):R*=”":FOR 1=1 TO 4:R*=R*+R*( 
I) 

1105 NEXT:IF G*(R)=""THEN G*=“NICHTS“ 

1106 IF TY=1 THEN 6930 

1120 POKE 214,20:POKE 211,0:SYS T 

1121 POKE U,15:PRINT" RICHTUNG: "R*X*j 
1125 POKE 211,38-LEN(G*):PRINT G*:LA=0 

1130 POKE 211,0:POKE 214,22:SYS T 

1131 POKE U,15:PRINT“ KOMMANDO: "Z*; 

1135 POKE F,27:K*="”:B2=R:POKE 198,0 
1140 GET A*:IF A*=""THEN 1140 

1145 IF A*=CHR*(13)OR LA>26 THEN 1180 

1146 IF A*=" “THEN 1160 

1147 IF A*=CHR*(20)THEN 3297 
1150 IF A*<"A"OR A*>"Z"THEN 1140 
1160 K*=K*+A*:POKE 211,11:P0KE 214,22 
1170 SYS T:PRINT K*Z*;:LA=LA+1:GOTO 1140 
1180 IF K*="N"THEN IF R*(1)="N—"THEN R=R-5 
1190 IF K*=”S"THEN IF R*(2)="S-"THEN R=R+5 
1200 IF K*="W"THEN IF R*(4)="W-"THEN R=R-1 
1210 IF K*="0"THEN IF R*(3)="0—"THEN R=R+1 

1220 IF B2=R THEN 1240 

1221 IF QU=1 THEN 2200 
1230 POKE F,11:GOTO 900 

1240 N*=LEFT*(K*,3):POKE U,14:Z=INT(RND(1> 
*3+1) 

1241 PRINT CHR*(157)“ ":PRINT:POKE 211,1 
1245 E*=RIGHT*(K*,3):IF N*<>“NIM"THEN 1350 

1250 IF E*=“NZE"AND R=4 THEN 4020 

1251 IF E*=“EUZ"AND R=99 THEN 4040 
1256 IF E*="CHE"AND R=22 THEN 4040 
1260 IF E*="MER"AND R=10 THEN 4040 
1270 IF E*=”FER“AND R=2 THEN 4060 
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1275 IF E*="OLZ"AND R=1B THEN 4040 
12B0 IF E*=“IST"AND R=6 THEN 4080 

1290 IF E*="MPE"AND R=B THEN 4100 

1291 IF E*="DEN"AND R=12 THEN 4040 

1293 IF E*="MIT"AND R=16 THEN 4040 

1294 IF E*="ANK"AND R=18 THEN Z=2:GOTO 293 
0 

1295 IF E*="UCH“AND R=20 THEN 4040 
1298 GOTO 2910 

1350 IF N*< >"GIB"THEN 1370 

1355 IF E*="DEN"OR E*="MER"OR E*="CHE"THEN 

IF R=6 OR R=99 THEN 4120 

1356 IF E*="FER"AND R=99 THEN 4120 

1357 IF E*="EUZ"AND QU=1 THEN 2300 
1360 GOTO 2995 

1370 IF N*< > "DRU"THEN 1430 

1380 IF E*="TER"THEN IF R=14 THEN 4140 

1430 IF N*<>“LIS"THEN 1520 

1431 IF QU=1 THEN 2200 

1435 IF L*(1X>"STE"THEN 2997 

1440 POKE F, 11:POKE 214,BsP0KE 211,0 

1441 SYS TsFOR 1=1 TO 11 

1445 PRINT SPC(8)CHR*(18)LEFT*(W*,13> 

1450 NEXT: W=8: IF R<>2 AND R<>18 AND RO20 
THEN POKE V+21,0 

1456 FOR 1=0 TO P:IF L*(I)=""THEN NEXTsGOT 
O 1500 

1460 IF L*(I>="MER"THEN P*="HAMMER" 

1464 IF L*(I)="EUZ"THEN P*="KREUZ" 

1465 IF L*(I)="DEN"THEN P*="ORDEN" 

1466 IF L*(I)="FER"THEN P*="OPFER" 

1470 IF L*(I)="SEL"THEN P*="SCHLUESSEL" 

1472 IF L*(I)="MIT"THEN P*="DYNAMIT" 

1473 IF L*(I)="CHE"THEN P*="FLASCHE" 

1474 IF L*(I > ="OLZ"THEN P*="STREICHHOLZ“ 
1485 W=W+1:POKE 214,W:P0KE 211,9:SYS T 
1490 PRINT CHR*<18)P*:NEXT 

1500 POKE F,27:POKE 19B,0:WAIT 198,l:GOTO 
900 

1520 IF.N*<>"SPR"THEN 1550 
1530 PRINT"DEIN KOPF KNALLTE"; 

1535 PRINT" AN DIE DECKE"; 

1540 GOTO 9999 

1550 IF N*<>"ZUE"THEN 1570 

1555 IF E*="MIT“THEN 4800 

1570 IF N*< >"OEF"THEN 1575 

1571 IF R< >18 THEN 2910 
1573 GOTO 6700 

1575 IF N*<>"BEF"THEN 1577 

1576 GOTO 6000 

1577 IF N*<>"GEH“THEN 1579 

1578 IF RIGHT*(K*,4)="LOCH"THEN R=99:G0T0 
900 

1579 IF N*="HOC"AND R=99 THEN R=16:G0T0 90 
0 

1580 IF N*<>"TRI"THEN 2000 

1581 FOR 1=1 TO P:IF L* <I)< >"CHE"THEN NEXT 
:GOTO 1583 

1582 IF KR=0 THEN GOSUB 6500:GOTO 1590 

1583 PRINT“WAS DENN";:GOTO 299B 
1590 PRINT“DU FUEHLST DICH NUN"; 

1595 PRINT" KRAEFTIGER“;:KR=1:GOTO 6750 
2000 GOTO 2950 

2100 FOR 1=1 TO P:IF L*(I><>“FER"THEN NEXT 
: GOTO 

2200 POKE 214,24:POKE 2U,1:SYS T:POKE U,5 
2205 PRINT"QUASIMODO HAT DICH GETOETET"; 
2210 GOTO 9999 

2300 FOR 1=1 TO P:IF L*(I)<>"EUZ"THEN NEXT 
:GOTO 2200 

2310 POKE F,11:PRINT CHR*(147);:POKE U,lli 
TY=1:GOTO 902 

2910 GOSUB 4000:IF QU=1 THEN 2200 
2920 IF Z=1 THEN PR INT "SELTEN SO GELACHT"; 
2930 IF Z=2 THEN PRINT"TOTAL UNMOEGLICH"; 
2940 IF Z=3 THEN PRINT"DAS KANN ICH NICHT“ 

2945 GOTO 2998 

2950 IF QU=1 THEN 2200 

2951 GOSUB 4000: IF K*="0"0R K*="W"OR K*="S 
“OR K*="N"THEN 2990 

2970 IF Z=1 THEN PRINT"VERSTEH DICH NICHT" 

2980 IF Z=2 THEN PRINT"DO YOU SPEAK GERMAN 

2981 IF Z=3 THEN PRINT"IST MIR UNBEKANNT"; 
2985 GOTD 2998 
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<213> 

< 197> 
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<024> 

< 115> 
<095> 

< 116> 

<090> 
<241 > 
<016> 

<014> 

<219> 

<245> 
< 183> 
<025> 


2990 PRINT"RICHTUNG NICHT "; <171> 

2991 PRINT"MOEGLICH“;:GOTO 2998 <185> 

2995 FOR 1=1 TO P:IF L*(I)<>E*THEN NEXT:GO 

TO 2997 <194> 

2996 IF R< >6 AND R<>99 THEN PRINT"WEM DENN 

";:GOTO 2998 <121> 

2997 PRINT"HAST DU NICHT"; <023> 

2998 POKE 211,1:FOR 1=1 TO 1350:NEXT:IF R= 

99 AND MO=0 THEN 6770 <060> 

2999 POKE 214,22:POKE 211,11:SYS T <159> 

3000 PRINT W*:PRINT:PRINT W*“<11SPACE>";:G 

OTO 1102 <254> 

3001 GOSUB 4000:PRINT"GIBT ES HIER"; <077> 

3002 PRINT" NICHT";:GOTO 299B <242> 

3005 POKE 214,3:P0KE 211,1:SYS T <067> 

3010 PRINT CHR*(170)CHR*(109) <200> 

3020 PRINT“ "CHR*(170)" "CHR*(109) <090> 

3030 PRINT" "CHR*(170)CHR*(183)CHR*(112) <206> 

3040 FOR 1=1 TO 9 <117> 

3050 PRINT" “CHR*(170)" "CHR*<167):NEXT <056> 

3060 PRINT" "CHR*(170)CHR*(175)CHR*(1B6) <248> 

3065 PRINT" "CHR* <170)"<2SPACE>" <213> 

3070 PRINT" "CHR*(170)" " <218> 

3080 PRINT" "CHR*<110):RETURN <099> 

3100 POKE 214,5:P0KE 211,16:SYS T <219> 

3110 FOR 1=1 TO 6 :PRINT CHR*<175);:NEXT <056> 

3120 PRINT SPC(33)CHR* <170)CHR*(109); <167> 

3130 FOR 1=1 TO 4:PRINT CHR*(175);:NEXT <074> 

3140 PRINT CHR*(110)CHR*(180) <068> 

3150 FOR 1=1 TO 6 :PRINT SPC(15)CHR*(170)CH 

R*(170); <132> 

3160 PRINT SPC(4)CHR*(180)CHR*(180):NEXT <030> 

3170 PRINT SPC(15)CHR*(186)CHR*(110); <216> 

3180 PRINT"C4SPACE>"CHR*(109)CHR*(108):RET 

URN <12B> 

3200 POKE 214,3:POKE 211,35:SYS T <062> 

3210 PRINT CHR*(110)CHR*(180) <13B> 

3220 PRINT SPC(34)CHR*(110)" "CHR*(180) <014> 

3230 PRINT SPC(34)CHR*(111)CHR*(183); <019> 

3240 PRINT CHR*(180):FOR 1=1 TO 9 <194> 

3250 PRINT SPC(34)CHR*(180)" “CHR*(180) <051> 

3267 NEXT:PRINT SPC(34)CHR*(108)CHR*(175)C 

rlR*(180) < 106> 

3265 PRINT SPC(34)"<2SPACE>"CHR*(180) <145> 

3270 PRINT SPC(35)" “CHR*(109) <152> 

3280 PRINT SPC(37)CHR*(109):RETURN <040> 

3297 IF LA<1 THEN 2999 <109> 

3298 LA=LA—1:K*=LEFT*(K*,LA):POKE 211,11 <037> 

3299 PRINT K*Z*" ";:GOTO 1140 <125> 

3310 DATA 62,0,3,192,0,12,48,0,48,12,0,0 <038> 

3320 DATA 3,0,12,3,0,15,3,0,7,3,0,53,3,0 <026> 

3330 DATA 15,3,0,15,195 <016> 

3340 DATA 0,15,204,0,13,240,0,7,192,0,3 <016> 

3350 DATA 192,0,2,160,0,2,32,0,2,40 <084> 

3360 DATA 0,2,40,0,2,40,0,2,40 <066> 

3370 DATA 0,2,40,62,0,2,40,0,2,40 <000> 

3380 DATA 0,2,40,0,1,245,0,1,245,0,1,117 <096> 

3390 DATA 0,1,85,0,0,84,0,0,80,0,1,80,0 <057> 

3400 DATA 1,64,0,5,64,0,5,0,0,21,0,0,5,0 <107> 

3410 DATA 0,5,0,0,1,64,0,1,192,0,3,192,0 <126> 

3420 DATA 0,240,0,3,240,62 <?39> 

3430 DATA 0,4B,0,0,112,0,0,248,0,0,248,0 <150> 

3440 DATA 1,252,0,12,252,0,13,254,0,15 <071> 

3450 DATA 254,224,7,253,224,7,251,224.25 <212> 

3460 DATA 253,192,31,255,192,111,255,216 <226> 

3470 DATA 111,255,184,119,255,120,63,255 <237> 

3480 DATA 240,31,255,224,7,255,0,3,254,0 <227> 

3490 DATA 1,252,0,0,248,0,25 <153> 

3500 DATA 0,160,0,0,160,0,5,85,0,5 <189> 

3510 DATA 85,0,1,84,0,1,84,0,1,84,0 <002> 

3520 DATA 1,84,0,0,80,22 <245> 

3600 DATA 0,255,0,0,195,0,3,243,0,15,255 <0B2> 

3610 DATA 0,1,81,0,15,255,0,1,81,0,0,65 <032> 

3620 DATA 62,0,16,0,0,252,0,3,255,0,3 <199> 

3630 DATA 255,0,3,253,0,3,255,0,15 <077> 

3640 DATA 255,192,15,255,192,2,170,128,2 <150> 

3645 DATA 170,128,2,170,0,2 <009> 

3650 DATA 170,0,0,168,0,0,252,0,3,255,0 <074> 

3660 DATA 15,255,64,15,255,240,15,255,208 <221> 

3670 DATA 15,63,240,15,63,208,5,61,80,31 <169> 

3680 DATA 15,63,240,0,160,0,3,239,192,0 <118> 

3690 DATA 255,0,0,255,0,0,240,0,0,240,0,0 <195> 

3700 DATA 240,0,0,240,0,0,252,0,0,252 <015> 

3710 DATA 37,1,64,0,63,252,0,85,116,0,255 <255> 

3720 DATA 252,0,255,252,0,63,240,0,1,64 <157> 

3730 DATA 0,1,64,0,1,64,0,1,64,0,1,64,0 <143> 

3740 DATA 1,64,0,1,64 <067> 
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3750 DATA 18,29,0,0,55,0,0,29,0,0,5,0,0 
3760 DATA 5,0,0,4,0,0,4 

3770 DATA 9,252,0,0,220,0,0,220,0,0,252 

3771 DATA 7,255,196,0,255,208,0,255,192 

3772 DATA 61,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

3773 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

3774 DATA 0,0,1,64,0,5,B0,0,21,208,1,21 

3775 DATA 84,4,21,84,4,85,85,20,85,85,84 

3776 DATA 86,85,Bl ,86,21 ,81,90,0,81 ,86 

3777 DATA 62,81,86,0,81,213,128,81,117,0 

3778 DATA 69,89,64,B5,93,80,85,91,112,85 

3779 DATA 86,48,85,85,0,85,85,0,21,85,0 

3780 DATA 21,85,0,5,84,0,1,84,0,0,84,0,0 
3785 DATA 85,0,0,21,0,0,21,0,0,84,0,0,84 
3790 DATA 0,0,85,64,0,93,192 

3800 DATA 56,255,255,240,0,0,0,255,255,240 
3805 DATA 255,255,240,255,15,240,255,255 
3810 DATA 240,255,255,240,0,0,0,255,255 
3815 DATA 240,255,255,240,255,255,48,255 
3820 DATA 255,48,255,255,48,255,255,240,25 
5 

3830 DATA 255,240,255,255,240,80,0,80,64 
3840 DATA 0,16,64,0,16 

3900 DATA 56,255,255,240,192,0,48,192,0,32 
3905 DATA 192,0,48,192,0,48,192,0,48,192 
3910 DATA 0,48,192,0,48,255,255,240 
3915 DATA 255,255,240,255,255,48,255,255 
3920 DATA 48,255,255,48,255,255,240,255 
3930 DATA 255,240,255,255,240,80,0,80,64 

3940 DATA 0,16,64,0,16,3,B6,0,0,86,45 

3941 DATA 63,240,0,74,80,0,115,240,0,124 

3942 DATA 80,0,110,240,0,78,144,0,70,240 

3943 DATA 0,102,176,0,110,240,0,110,B0,0 

3944 DATA 110,240,0,110,144,0,126,240,0 

3945 DATA 62,0,0,14,0,0,2 

3946 DATA 62,0,2,0,0,2,0,0,7,0,0,7,0,0 

3947 DATA 15,128,0,15,128,0,31,192,0,31 

3948 DATA 192,0,63,224,0,63,224,0,255,248 

3949 DATA 0,64,16,0,88,208,0,45,160,1,224 

3950 DATA 60,7,240,95,31,215,79,63,136 

3951 DATA 131,63,13,131,126,7,16,126,34,0 

3952 DATA 62,126,34,0,124,4,16,124,32,16 

3953 DATA 250,64,8,251,64,8,249,252,5,248 

3954 DATA 12,15,248,28,8,252,22,28,252,50 

3955 DATA 7,252,34,1,124,42,1,126,44,2 

3956 DATA 62,38,14,62,39,30,126,49 

3957 DATA 240,124,18,225,127,18,225,127 

3958 DATA 206,227,126,108,98,126,56,99,60, 
192,0,0,240,0,0,240,0,0,252,0,0,254 

3959 DATA 0,0,127,0,0,63,128,0,63,128 

3960 DATA 0,111,128,0,207,128,0,15,128,0 

3961 DATA 15,128,0,31,128,0,31,128,0,31 

3962 DATA 128,0,159,128,0,191,0,0,191,0 

3963 DATA 0,191,0,0,191,0,0,191 

3964 DATA 54,126,56,99,126,56,99,126 

3965 DATA 56,126,56,99,126,56,99,126 

3966 DATA 56,126,56,99,126,56,99,126 

3967 DATA 56,126,56,99,126,56,99,126 
396B DATA 56,126,56,99,126,56,99,126 

3969 DATA 56,126,56,99,126,56,99,126 

3970 DATA 56,126,56,99,126,56,99,126 

3971 DATA 27,16,0.0,48,0,0,48,0,0,252,0 

3972 DATA 0,252,0,0,168,0,0,16B,0,0,252 

3973 DATA 0,0,252,0,0,252,18 

3974 DATA 32,0,0,32,0,0,168,0,0,168,0,0 

3975 DATA 32,0,0,32,0,0,32 

4000 PDKE 211,1:POKE 214,24:SYS T:RETURN 
4020 PRINT CHR*(157)"HORNISSEN HABEN DICH" 

4030 PRINT" TOETLICH GESTOCHEN"GOTO 9999 
4040 IF E*="EUZ"AND R=99 AND MO=0 THEN 677 
0 

4042 IF SR=1 THEN SR=0:SE=1:GOTO 4045 

4043 IF RIGHT*(G*(R>,3><>E*THEN 3001 

4044 G*(R>="" 

4045 P=P+1:POKE 214,20:SYS T 

4046 IF R< >18 THEN FOR 1=0 TO l:POKE V+1,0 
: NEXT 

4047 POKE V+2,0:POKE V+3,0:PDKE V+4,0 

4048 POKE V+5,0:L$(P)=E*:POKE U,15 

4051 PRINT SPC(27)"<4SPACE>NICHTS" 

4052 IF E$= " UCH " THEN QU=1: G* (20) =" QUASI MOD 
O”:POKE F,11:GOSUB 6800 

4053 GOTO 2999 

4060 IF KR=1 THEN LE=1:GOTO 4040 
4065 PRINT"IST ZU SCHWER"GOTO 2998 
4080 PRINT"DER POLIZIST HAT"; 
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< 144> 

< 182> 
<030> 

< 169> 

< 169> 

< 152> 

< 108> 

< 194> 
<034> 

< 127> 
<242> 
<235> 

< 112 > 
<235> 
<187> 
<013> 
<254> 
<090> 

< 175> 

< 160> 

< 210 > 

<039> 

< 185> 

< 138> 

< 147> 
< 002 > 
<048> 
<051 > 
<052 > 
<053> 
<054 > 
<055> 
<056> 
<138> 

< 142> 
< 122 > 

< 132> 
<016> 
<037> 

< 191 > 

< 136> 

< 130> 
<095> 
<036> 
<223> 
<043> 

<225> 

< 196> 
<037> 
<192> 

<023> 

<074> 

< 156> 
<018> 
<077> 


4095 PRINT" DICH VERHAFTET"GOTO 9999 
4100 PRINT"HAENGT ZU HOCH";:GOTO 2998 

4120 FOR 1=1 TO P 

4121 IF L*<I)="DEN"AND E*="DEN"AND R =6 THE 
N 4130 

4122 IF L*(I)="FER"AND E*="FER"AND R=99 TH 
EN L* <I)=“":GOTO 6600 

4123 IF L*(I>=E*THEN 4156 

4124 NEXT:IF R =6 THEN 4080 

4125 GOTO 6770 

4130 PRINT"DU BEKOMMST EINEN";:OD=l 

4131 PRINT" SCHLUESSEL DAFUER";:L*(I)="SEL 
":GOSUB 6500:GOTO 6750 

4140 PRINTLINE FALLTUER HAT“; 

4155 PRINT" SICH GEOEFFNET ";:GOTO 9999 

4156 L* <I)=“" 

4160 GOTO 2998 

4800 FOR L=1 TO P:IF L*(L)="MIT"THEN 4871 
4815 NEXT:IF G*(R)="DYNAMIT"THEN 4871 
4820 GOTO 3001 

4860 PRINT"DIE EXPLOSION HAT DICH“; 

4B70 PRINT" ZERFETZT";:GOTO 9999 

4871 IF SE=0 THEN PRINT"MIT WAS DENN";:GOT 
O 2998 

4872 POKE F,11:G* (R)="LOCH“:FOR 1=0 TO 6 

4873 POKE SI+I,0:NEXT:J=1:I1=99:GOSUB 4880 

4874 FOR 1=1 TO 2000:NEXT:FOR J=15 TO 0 ST 
EP—. 5 

4875 I1=30:GOSUB 4880:NEXT:FOR 1=0 TO 6 

4876 POKE SI+I,0:NEXT 

4877 IF L*(L)="MIT"THEN 4860 

4878 GOTO 900 

4880 POKE SI+24,J:POKE SI+5,15:P0KE SI+1,I 
1 

4881 POKE S1,200:POKE SI+4,129:RETURN 
4900 POKE 214,14:POKE 211,6:SYS T 

4906 POKE U,11:PRINT SPC(2);:F0R 1=1 TO 5 
4910 PRINT CHRS(175);:NEXT:PRINT SPC<34>; 
4920 PRINT CHR*(110)SPC(4)CHR*(110) 

4930 PRINT SPC(7)CHR*(109)CHR*(175); 

4940 PRINT CHR*(175)CHR*(U0)CHR*(183) 

49?i'' 3DTO 1095 

5000 POKE V+37, 6 :POKE V+38,15:P0KE V+39,2 
5010 POKE 2040,13:POKE V,207:POKE V+1,107 
5030 POKE 2041,14:POKE V+2,207:POKE V+3,12 
8 

5040 PRINT CHR*(19):POKE U,l:FOR 1=1 TO 7 
5050 PRINT SPC(25)CHR*(167):NEXT 
5055 PRINT SPC(25)CHR$(110):POKE U,11:RETU 
RN 

5100 POKE V+37,11:POKE V+38,5:P0KE V+39,8 
5110 POKE 2040,15:POKE 2041,236 
5120 POKE V,100:POKE V+l,145:POKE V+40,8 
5130 POKE V+2,100:POKE V+3,166:RETURN 
5200 POKE V+37,7:POKE V+38,2:P0KE 2040,237 
5210 POKE V+16,255:POKE V,46:P0KE V+l,110: 
RETURN 

5300 POKE V+37,1:POKE V+3B,14:P0KE V+39,B 
5310 POKE V+40,8:POKE 2040,238:POKE 2041,2 
39 

5320 POKE V,100:POKE V+l,143 
5330 POKE V+2,100:POKE V+3,164:RETURN 
5400 POKE V+37,7tPOKE V+3B,B:P0KE V+39,8 
5410 POKE V,233:POKE V+l,160:POKE 2040,240 
:RETURN 

5500 POKE V+37,2:POKE V+3B,7:P0KE V+39,8 
5510 POKE V,140:POKE V+1,130:POKE 2040,241 
:RETURN 

5600 POKE V+37,3:POKE V+38,4:P0KE V+39,8 
5610 POKE V,140:POKE V+1,130:POKE 2040,242 
:RETURN 

5700 POKE V+37,7:POKE V+38,2:P0KE V,100 
5710 POKE V+l,170:POKE 2040,243:RETURN 
5800 POKE V+37, 6 :POKE V+38,8:P0KE V+39,4 
5810 POKE V,90:POKE V+1,93:P0KE V+2,90 
5820 POKE V+3,135:POKE 2040,244:POKE V+23, 
7 

5830 POKE V+29,7:POKE 2041,245:RETURN 
5900 POKE V+37,12:POKE V+3B,4:P0KE V,230 
5905 IF SE=1 OR SR=1 THEN POKE 2040,247:GO 
TO 5930 

5920 POKE 2040,246 

5930 POKE V+l,147:FOR 1=1 TO P:IF L*(I)="0 
LZ"OR SE=1 THEN NEXT:RETURN 
5940 POKE 2041,248:POKE V+40,7 
5950 POKE V+2,235:POKE V+3,152:RETURN 
5960 POKE V+39,7:PDKE V,240:POKE V+l,165 


<142> 
<0B3> 
<201 > 

< 200 > 

<216> 

<082> 

<032> 

< 138> 
< 100 > 

<066> 

< 177> 

< 196> 
<076> 

< 181 > 

< 163> 

< 189> 
<051 > 

< 174> 
<086> 

< 119> 

< 170> 
<052> 

<148> 

< 196> 
<093> 
<017> 
<067> 

< 168> 
<240> 
<233> 

< 134> 
< 202 > 
<059> 

< 150> 
< 011 > 

< 193> 

< 103> 
<068> 

<059 > 
<035> 
<014> 


< 199> 
<204> 
<0B7> 
<031 > 
<057> 

< 193> 

< 121 > 

< 148> 

<243> 

<076> 

<255> 

< 210 > 

<206> 

<048> 

<045> 

< 146> 

< 146> 
<060> 
< 020 > 
<094> 

< 124> 

<087> 

< 104> 
<055> 

< 199> 
<060> 

<130> 

< 011 > 

< 116> 
< 120 > 
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Listings 


Quasimodo/Mario 


5970 PQKE 2040,249:PGKE V+2B,0:RETURN <240> 

6000 FQR 1=1 TO 40:LA*=LA*+“ ":NEXT <052> 

6005 LA*=LA*+"NIMM-GIB-GEH-HOCH-LIST" <119> 

6010 LA*=LA*+“-ZUENDE-SPRING-TRINK" <064> 

6020 LA*=LA*+"—DRUECKE—OEFFNE“:POKE 211,40 <162> 
6025 FOR 1=1 TO 401LA*=LA*+" ":NEXT <077> 

6030 POKE 214,21sSYS T <142> 

6040 FV=FV+1:IF FV>98 THEN 299B <122> 

6050 PRINT MID*<LA*,FV,40)CHR*(145); <099> 

6060 FOR 1=1 TO 130:NEXT:GOTO 6040 <241> 

6500 POKE SI+24,8:POKE SI+4,0:POKE SI+5,10 <164> 

6501 POKE SI+6,22:FOR 1=30 TO 10 STEP-.4 <245> 

6505 POKE SI+1,255—PEEK(SI):POKE SI+4,33:P 

OKE SI,200+1 <173> 

6520 POKE SI+4,17s NEXT:POKE SI+4,0s RETURN <097> 
6540 IF G*(R)='"'THEN RETURN <105> 

6550 POKE V+4,200:PDKE V+5,100 <251> 

6560 POKE 2042,255:POKE V+41,15:RETURN <112> 

6600 POKE F,11 SPRINT"MONSTER NAHM LEICHE U 

ND VERSCHWAND"! <112> 

6610 MO=1:G*(R)="{2SPACEJKREUZ":MO=1:POKE 

V+1,0 <0B0> 

6620 POKE V,0:POKE V+2,0:POKE V+3,0 <253> 

6630 POKE F,27 s GOSUB 6500:GOTO 6750 <152> 

6700 FOR 1 = 1 TO P:IF L*(IX >"SEL"THEN NEXT 

:PRINT"MIT WAS DENN";:GOTO 2998 <0B6> 

6705 IF SE=1 OR SR=1 THEN PRINT"IST SCHON 

OFFEN";:GOTO 2998 <192> 

6710 GOSUB 6500:POKE 2040,247 <008> 

6730 PRINT"IM SCHRANK LIEGT";:SR=1 <083> 

6740 PRINT" EIN STREICHHOLZ"; <177> 

6750 POKE 198,0:WAIT 198,1:G0T0 2999 <120> 

6770 PRINT"DAS MONSTER HAT DICH GEBISSEN"; 

:GOTO 9999 <144> 

6800 FOR 1=0 TO 3:POKE 2040+1,250+1:POKE V 

+39+1,2 <251> 

6810 NEXT:POKE V,150:POKE V+2,150 <228> 

6820 POKE V+l,120:POKE V+3,141:POKE V+4,15 

1 <211> 

6830 POKE 214,10:POKE 211,17:SYS T <168> 

6840 POKE U,1sPRINT ZS:FOR 1=1 TO 5 <044> 

6850 POKE 211,16:PRINT Z*Z*Z*:NEXT <163> 

6900 POKE 2042,253:POKE V+41,2:POKE V+6,17 

2 <148> 

6910 POKE V+7,135:POKE 2043,252:POKE V+42, 

2 <159> 

6920 POKE V+5,162:RETURN <124> 

6930 POKE 214,24:SYS T <025> 

6935 PRINT" GRATULIERE DER HEXER VERSCHWIN 

DET";:POKE V+6,0 <142> 

6940 FOR 1=16045 TO 16255 <090> 

6950 POKE I,255—PEEK(I>:NEXT:POKE F,27 <08B> 

6960 FOR 1=1 TO 300:POKE 16000+RND<1)*255, 

0 <130> 

6965 POKE V+37+RND(1)*5,RND(1>*15+1 <111> 

6966 NEXT:POKE V+21,0:PRINT CHR*(147);:END <223> 

7000 POKE V+37,3:P0KE V+38,5:P0KE V+39,13 <061> 

7020 POKE V,180:POKE V+l,160:POKE 2040,254 <092> 
7030 RETURN <031> 

9999 FOR 1=1 TO 3000:NEXT:POKE V+21,0:RUN 

21 <189> 


Listing »Quasimodo« (Schluß) 


Zeile 



20 — 

670 

Titelbild und Festvariablen 

700 — 

715 

Einlesen der Spritedaten 

875 — 

1092 

Feldaufbau (Räume) 

1093 — 

1094 

Aufruf der Unterprogramme für Sprites 

1100 — 

1230 

Befehlseingabe 

1240 — 

3002 

Kommandoverarbeitung 

3005 — 

3299 

Feldaufbau (Türen) 

3310 — 

3975 

Daten für 22 Sprites 

4000 - 

4950 

Reaktion auf Kommandos 

5000 - 

5970 

Spriteunterprogramme 

6000 — 

6060 

Laufschrift 

6500 — 

6520 

Töne 

6540 — 

9999 

Spriteunterprogramme 

Länge des Programmes: ca. 12 KByte 


Programmbeschreibung zu »Quasimodo« 


80 


Mario, die un¬ 
heimliche Mine 

im Land der Fantasie liegt die Mine 
»Mario«. Finden sie den richtigen Weg 
durch das ausgedehnte Gangsystem. 

Mario ist ein Grafik-Adventure für den C 64. Das Spiel ist in 
normalem C 64-Basic geschrieben und füllt fast den gesam¬ 
ten Basic-Speicherplatz des Computers. Es finden 24 Spri¬ 
tes Verwendung, deren Daten bei Bedarf eingeschaltet wer¬ 
den. Deshalb muß der Spieler zu Beginn eine knappe viertel 
Minute warten, während dessen er Gelegenheit hat, die 
Anleitung zu lesen. Lesern von J. R. Tolkien werden gewisse 
Parallelen zu dem Buch »Der Herr der Ringe« auffallen. Das ist 
nicht ganz zufällig, denn die verlassene Mine namens Mario 
ist in gewissem Sinne der Zwergenmine Moria aus diesem 
Buch nachempfunden. Wer überhaupt nicht mehr weiter 
weiß, sollte sich dieses Buch ausleihen. Dort kann er einige 
Hilfen für das Adventure finden. 

Das Spiel versteht 19 Befehle. Diese lauten: 

NIMM, VERLIERE, HEBE, ENTLEERE, WIRF, LIES (diese 
Befehle werden von einem Gegenstand gefolgt) 

OEFFNE (eine Tür oder ein Tor) 

BRINGE ... UM (dazwischen steht ein Lebewesen) 
SPEICHERE, LADE (für das Speichern und Laden eines 
Spielstandes, um nicht immer wieder von vorn anfangen zu 
müssen). Diese Befehle können erst eingegeben werden, 
wen n man in die Mine eingedrungen ist. Besitzer einer Dis¬ 
kettei lötation müssen die Zeilen 16520 (Öffnen der Datei 
für Speichern) und 16620 (Öffnen der Datei für Laden) ent¬ 
sprechend ändern. 

SAGE (wird von beliebigen Worten gefolgt, die aber nicht in 
normalen Anführungszeichen stehen sollten). 

HILF (hier gibt der Computer Hilfen oder Erklärungen, 
denen man aber nicht immer trauen sollte) 

LIST (zeigt die getragenen Gegenstände auf) 

N, S, O, W, H (hoch), R (runter). 

Man kann höchstens drei Gegenstände auf einmal tragen. 
Wenn das Anfangsbild erstellt ist, muß eine Taste gedrückt 
werden, da danach soviel Text erscheint, daß eine vernünftige 
Grafik zusammen mit dem Text nicht möglich wäre. Vorsicht 
mit der Rechtschreibung! Der Computer achtet genau auf die 
richtige Schreibweise der Befehle. 

Zu jedem Raum, in dem man sich befindet, wird ein Bild ge¬ 
zeigt, das die Spielsituation verdeutlicht. Insgesamt gibt es 
sechs voneinander völlig verschiedene Bilder. Es gibt jedoch 
wesentlich mehr Räume, da die Bilder manchmal nur leicht ab¬ 
gewandelt werden, wenn man in einen anderen Raum kommt. 

Bei dem Weg durch die Mine wird man unter anderem von 
Orks, einer Riesenspinne und einem schrecklichen Feuer¬ 
wesen behindert. Mehr soll hier nicht verraten werden. Auf¬ 
passen muß man auch bei den Himmelsrichtungen. Der Spie¬ 
ler sieht die Räume so, daß Osten immer in Blickrichtung liegt. 
Erläuterungen zum Ablaufschema des Programms 
Zunächst springt das Programm in Zeile 9000, wo die Er¬ 
läuterungen für den Spieler am Bildschirm ausgegeben wer¬ 
den, danach liest es die Daten der Sprites und wartet auf 
einen Tastendruck. Es zeichnet das Anfangsbild und geht zu 
Zeile 6000, wo mittels eines GET-Befehls das Kommando 
eingegeben wird. Sobald »Return« gedrückt wird, erfolgt die 
Auswertung. Hat man das Tor geöffnet und den Befehl »0« ein¬ 
gegeben, wird das nächste Bild gezeichnet und es folgt der 
Sprung in Zeile 15030, wo für alle Räume, außer dem An¬ 
fangsbild, das Kommando mittels INPUT-Befehl eingelesen 







Mario 


Listings 


70 READ- und DATA-Zeilen 

70 Sprite Ralbog 1 
80 Sprite Ralbog 2 
90 Sprite Berg 1 
109 Sprite Berg 2 
119 Sprite Torbogen vorne 
1 29 Sprite Torbogen links 
139 Sprite Torbogen rechts 
149 Sprite Spinne 
159 Sprite Ork 
169 Sprite Panzerhemd 
179 Sprite Feuer 1 
189 Sprite Feuer 2 
199 Sprite Feuer 3 
209 Sprite Feuer 4 
219 Sprite Uhr 
229 Sprite Seil 
239 Sprite Schwert 
249 Sprite Schriftrolle 
259 Sprite Buch 
269 Sprite Schlüssel 
279 Sprite Eimer 
289 Sprite Fackel 
292 Sprite Platte 
296 Sprite Laterne 
300 Ausgänge der Räume 
400 Gegenstände (Strings) 

421 Besonderheiten einiesen 
430 Gegenstände einiesen 
1000 Anfangsbild zeichnen 
1500 Bild »Heller Gang« zeichnen 
2000 Bild »Dunkler Gang« zeichnen 
3000 Bild »Raum mit Säulen« zeichnen 
4000 Treppe zeichnen 
4100 »Raum mit Feuer« zeichnen 
4500 »Raum mit Ralbog« zeichnen 
5000 Darstellung der Gegenstände 
5000 Spinne 
5100 Orks 
5200 Schwert 
5250 Eimer 
5300 Laterne 
5350 Platte 
5400 Schlüssel 
5500 Fackel 
5600 Panzerhemd 
5700 Uhr 
5800 Seil 
5900 Schriftrolle 
5950 Buch 

6000 Kommandoauswertung für Anfangsbild (GET-Befehl) 
8000 Tod, Frage nach neuem Spiel und Variablenbesetzung 
9000 Start, Erklärungen für Spieler 
10000 Errechnung der im Raum befindlichen Gegenstände 
10100 Errechnung der Raumausgänge 
10200 Verteiler In die Unterprogramme ab Zeile 1500 
10300 Errechnung der im Raum befindlichen Besonderheiten 
10400 Nehmen von Gegenständen 
10600 Verlieren von Gegenständen 
11000 Feststellung, ob Tod des Spielers eingetreten ist 
15000 Erfragen und Auswertung der Kommandos 


15040 

O 

15100 

W 

15200 

N 

15300 

S 

15400 

Nimm 

15500 

Verliere 

15600 

Oeffne 

15700 

List 

15800 

R 

15900 

Sage 

16000 

Bringe um 

16200 

Hebe 

16300 

Entleere 

16400 

Hilf 

16500 

Speichere 

16600 

Lade 

16700 

Wirf 

16800 

H 

16900 

Lies 


20100 Geworfenes Seil nehmen (Variablenumbesetzungen) 
20200 Flucht der Spinne (Ermittlung des neuen Ortes) 
22300 Darstellung Ralbog 
23000 Inhalt der Schriftrolle 


23200 Inhalt des Buches 
24000 Sieg des Spielers 


Programmbeschreibung 


Numerische Variablen 

A (23,63) 

— Werte der Sprites 

B (6) 

— Merker für Ausgänge aus Räumen 

C (6,12) 

— Gegenstände in den einzelnen Räumen 

D(6,12) 

— Ausgänge aus den einzelnen Räumen 

E (6,12) 

— Besonderheiten in den einzelnen Räumen 

HV 

— Hilfsvariable 

HW 

— Hilfsvariable 

LI 

— Laufvariable 

LW 

— Laufvariable 

LV 

— Laufvariable 

M 

— X-Position Spinne (Zufallszahl) 

Ml 

— Merker für gehobene Laterne 

M2 

— Merker für Erschöpfung 

M3 

— Merker für mehrmaliges Betreten des 


1. Raumes 

M4 

— Merker für Wasser im Eimer 

M5 

— Merker für Raum mit Feuerabgrund 

M6 

— Merker für geworfenes Seil 

M7 

— Zahl der absolvierten Spiele 

N 

— Y-Position Spinne (Zufallszahl) 

TU 

— Merker für offenes/geschlossenes 


Anfangs/Endtor 

X 

— Position Spieler 

Y 

— Position Spieler 

String-Variablen 

A$ 

— Zeichen 

A$ (10) 

B$ 

— Gegenstände ,, . . . ... 

-Befehl Variabienliste 

C$ 

— Filename 

FG$ 

— Besonderheiten in einem Raum 

GD$ 

— Eingegebener Gegenstand (zum Beispiel 


hinter NIMM) 

GES 

— Gegenstände in einem Raum 

GG~ '10) 

— Gegenstände, die man bei sich trägt 

RIS 

— Richtungen 


Bedeutung gesetzter Bits bei den Variablen C (X,Y), D (X,Y) 
und E(X,Y) 


C (X,Y) 

21 

0 Schriftrolle 

1 Schwert 

2 Fackel 

3 Panzerhemd 

4 Schlüssel 

5 Laterne 

6 Buch 

7 Platte 

8 Eimer 

9 Uhr 
10 Seil 


E(X,Y) 

21 

0 Orks 

1 Orks mit Pfeil und Bogen 

2 Zuviele Orks 

3 Unbewegliche Platte 

4 Ralbog 

5 Spinne 


D (X,Y) 

21 

0 / 

1 Ausgang links (Norden) 

2 Ausgang rechts (Süden) 

3 Ausgang hinten (Westen) 

4 Ausgang vorn (Osten) 

5 Nach unten 

6 Nach oben 


Bedeutung der Bits 


Die Werte X und Y stellen die jeweilige Position des Spielers dar. 


wird. In den darauffolgenden Zeilen wird für jeden möglichen 
Befehl geprüft, ob er identisch mit dem eingegebenen Kom¬ 
mando ist und die entsprechende Reaktion auslöst. Wenn 
man einen neuen Raum betritt, geht das Programm zu Zeile 
10200, von wo aus dann in die Unterprogramme zum Zeich¬ 
nen der Räume verteilt wird. Von diesen werden die Unter- 


33 * 3 ? 
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Listings 


Mario 


Programme ab Zeile 10000,10100,10300und llOOOange- 
sprochen: 

10000 berechnet mittels C(X,Y) die Gegenstände, stellt sie 
mittels einer Verzweigung in die Unterprogramme ab 
5000 dar 

10100 berechnet mittels D(X,Y) die Ausgänge aus den Räu¬ 
men, besetzt eventuell die Merker B(1) bis B(6) 
10300 sucht nach Besonderheiten (E(X,Y)), verzweigt in die 
Unterprogramme zu ihrer Darstellung 
11000 stellt fest, ob wegen irgendwelcher Besonderheiten 
der Tod des Spielers eingetreten ist. Wenn ja, dann 
gibt es zu dem Unterprogramm ab Zeile 8000, das 
das Spiel beendet und auf Wunsch des Spielers neu 
startet. Wenn nein, erfolgt ein Rücksprung. 

Sonder-Unterprogramme (Inhalt der Schriftrolle, des Bu¬ 
ches, Flucht der Spinne etc.) werden von den Auswertungs¬ 
zeilen zum INPUT-Befehl direkt aufgerufen. 

Das Feuer in einem Raum besteht aus 4 Sprites, die nach¬ 
einander erscheinen und deshalb eine Bewegung Vor¬ 
täuschen. 

Obwohl die Mine mehrere Ebenen hat, gibt es zur Bestim¬ 
mung der Position des Spielers nur zwei Variablen, X und Y. 
Dies geschah aus Speicherplatzgründen. Wenn man in die 
nächste Ebene kommt, dann wird einfach der Y-Wert auf 
einen Wert gebracht, der in der vorhergehenden Ebene gar 
nicht Vorkommen kann. So wurde die Positionsbestimmung 
mit nur zwei Variablen möglich. 

(Frank Leggewie/Harald Bornfleth/rg) 


Listing »Mario« 

0 REM **» MARIO - EIN ADVENTURE FUER DEN C 


OMMODORE 64 *** <210> 

1 REM BY HARALD BORNFLETH,IM HERZENACKER 3 

9,6535 GAU-ALBESHEIM,TEL.06725/3803 <179> 

2 DIM A(23,63) ,M (10),C(6,12>,D(6,12),E(6, 

12):V1=53248:X=-2:Y=3 <019> 

20 GOSUB 9000 <106> 

30 PRINT"<RVSON,11SPACEJEINEN MOMENT BITTE 

C11SPACEJ“; <255> 

40 IF M7>0 THEN 421 <0B6> 

70 FOR LV=1 TO 54:READ A(23,LV):NEXT <155> 

71 DATA,127,2,,255,2,,255,2,1,231,2,1,231, 

130,1,227,194,1,227,194,3,195,194,3 <029> 

72 DATA 195,194,3,193,228,3,193,226,3,193, 

226,7,129,225,7,128,241,7,128,241 <202> 

73 DATA 7,128,241,15,,121,15,,121 <137> 

80 FOR LV=1 TO 63:READ A(0,LV):NEXT <112> 

81 DATA,62,,,127,,,107,,,62,,,62,,,28,,1,2 

55,128,3,255,192,7,255,224,6,127,96,6 <131> 

82 DATA 126,96,6,126,96,6,126,96,6,126,96, 

6,126,96,6,126,96,6,126,96,6,126,96 <0B7> 

83 DATA 255,126,248,6,126,100,,126,4 <054> 

90 FOR LV=1 TO 49:READ A(1,LV):NEXT <127> 

100 DATA 0,0,1,0,0,3,0,0,3,0,0,7,0,0,7,0,4 

,15,0,14,15,0,14,31,0,31,31,0,31,63 <123> 

101 DATA 0,63,191,8,63,255,28,127,255,60,1 

27,255,62,255,255,126,255,255,127 <184 > 

102 FOR LV=50 TO 63 <173> 

103 A(1,LV> =255 <070> 

104 NEXT <234> 

109 FOR LV=1 TO 30:READ AC2,LV):NEXT <137> 

110 DATA 128,0,3,192,0,7,224,0,15,240,0,15 

,248,0,31,252,4,63,254,14,63,255,15 <231> 

111 DATA 127,255,159,255,255,223,255 <058> 

112 FOR LV=31 TO 63:A(2,LV)=255:NEXT <140> 

119 FOR LV=2B TO 54:READ A(3,LV):NEXT <211> 

120 DATA 0,126,0,3,255,192,7,255,224,15,25 

5,240,31,255,248,63,255,252,127,255 <024 > 

121 DATA 254,127,255,254,127,255,254 <065> 

122 FOR LV=55 TO 63:AC3,LV)=255:NEXT <157> 

129 FOR LV=46 TO 63:READ A(4,LV):NEXT <222> 

130 DATA 0,224,0,1,252,0,1,255,0,1,255,128 

,1,255,128,1,255,128 <024> 


139 FOR LV=46 TO 63:READ AC5,LV):NEXT <233> 

140 DATA 0,7,0,0,63,128,0,255,128,1,255,12 

8,1,255,128,1,255,128 <101> 

149 FOR LV=10 TO 63:READ A(6,LV):NEXT <235> 

150 DATA 0,60,0,1,255,128,3,60,192,6,219,9 

6,14,219,112,15,60,240,31,255,248 <194> 

151 DATA 35,255,196,66,36,66,132,66,33,136 

,66,17,136,129,17,144,129,9,144,129,9 <191> 

152 DATA 144,129,9,144,129,9,144,129,9,144 

:129,9 <183> 

159 FOR LV=1 TO 63:READ A(7,LV):NEXT <198> 

160 DATA 8,28,8,8,62,28,8,127,62,8,42,8,8, 

62,8,8,34,8,8,62,8,28,28,8,31,255,252 <187> 

161 DATA 31,255,252,8,127,8,,127,8,,127,8, 

,127,8,,127,8,,119,8,,99,8,,99,8,,99,8 <220> 


162 DATA,99,8,3,227,232 <016> 

169 FOR LV=19 TO 48:READ A( 8 ,LV):NEXT <013> 

170 DATA 3,231,192,7,255,224,15,255,240,31 

,255,248,63,255,252,127,255,254,253 < 084 > 

171 DATA 255,191,121,255,159,49,255,142,1, 

255,232 <240> 

172 FOR LV=49 TO 63 STEP 3:A(B,LV)=1:A( 8 ,L 

V+l)=255:A <B,LV+2> =128:NEXT <062> 

179 FOR LV=29 TO 63:READ A(9,LV):NEXT <022> 

lÖlfl DH I fr) 6,0,0,6,0,0,13,10,9,4/,128,13,12/, 

140,31,255,142,31,255,30,63,255,190 <046> 

181 DATA 63,255,255,127,255,254,127,255,25 

5.255.255.255 <052> 

189 FOR LV=34 TO 63:READ AC10,LV):NEXT <06B> 

190 DATA 4,130,0,15,198,12,15,215,14,31,22 

3.158.31.255.190.63.255.190.63.255.255 <234> 

191 DATA 127,255,255,127,255,255,255,255,2 

55 <026> 

199 FOR LV=2B TO 63:READ AC11,LV):NEXT <0B2> 

200 DATA 2,0,0,7,64,0,15,224,0,31,225,0,31 

,227,16,31,243,24,63,247,188,63,255 <070> 

201 DATA 188,63,255,254,127,255,254,127,25 

5.255.255.255.255 <020> 

209 FOR LV=22 TO 63:READ A<12,LV):NEXT <087> 

210 DATA 2,0,0,7,0,0,7,128,0,15,160,0,31,2 

40,0,31,240,0,31,240,128,63,241,200 <028> 

21- /ATA 63,249,220,63,251,220,127,251,254 

,127,255,254,255,255,255,255,255,255 <185 > 

219 FOR LV=1 TO 54:READ A(13,LV):NEXT <047> 

220 DATA 15,255,240,31,255,248,63,255,252, 

122.16.94.240.. 15.224..7.240..15 <211> 

221 DATA 224,,7,224,,7,224,,7,241,248,15,2 

24.4.7.224.2.7.224.1.7.240.. 143 <142> 

222 DATA 224,,71,240,,15,250,8,95 <250> 

223 FOR LV=55 TO 63:A(13,LV)=255:NEXT <051> 

229 FOR LV=1 TO 63:READ A<14,LV):NEXT <05B> 

230 DATA 0,127,224,7,128,24,8,,4,16,63,194 

,33,192,33,34,,17,68,63,9,136,64,137 <183> 

231 DATA 136,28,73,145,,73,145,16,137,145, 

15,9,72,128,18,72,96,100,36,31,132 <090> 

232 DATA 35,,8,16,192,48,8,63,192,4,,,3,12 

8 .. .127.255 <219> 

239 FOR LV=19 TO 63:READ A<15,LV):NEXT <126> 

240 DATA 30,,,30,,,30,,,30,,,31,255,252,25 

5.255.254.255.255.255.255.255.255 <007 > 

241 DATA 255,255,254,31,255,252,30,,,30,,, 

30.. .30...., <220> 

249 FOR LV=1 TO 63:READ A(16,LV):NEXT <080> 

250 DATA,,,,3,128,,15,224,,31,240,,63,248, 

,127,248, , 255,248,1,255,240,7,255,240 < 000 > 

251 DATA 24,255,224,32,63,224,71,31,192,72 
,159,128,144,79,,147,78,,144,76,,72,88 

i < 112 > 

252 DATA 71,144,,32,32,,24,192,,7,, <103> 

259 FOR LV=14 TO 63:READ AC17,LV):NEXT <144> 

260 DATA 15,255,,16,3,,40,7,,83,229,,128,1 

35,1,99,11B,2,16,22,4,231,244,8,,60 <131> 

261 DATA 19,11,72,36,148,112,71,159,144,12 

8 .. 224.255.255.32.255.255.64.128.1.128 <065> 

262 DATA 255,255,128 <1B1> 

269 FOR LV=31 TO 63:READ A(18,LV):NEXT <154> 

270 DATA 7,128,,31,224,,56,112,,96,31,254, 

192.15.255.192.15.255.192.15.255 <023> 

271 DATA 96,24,227,56,48,227,31,224,227,7, 

128,3 <245> 

279 FOR LV=4 TO 59:READ A(19,LV):NEXT <122> 

280 DATA 3,255,192,28,,56,31,255,248,16,25 

5.8.16.. 16.8..16.8..16,B,,16,4,,16 <115> 

281 DATA 4,,32,4,,32,4,,32,2,,32,2,,64,2,, 

64.2.. 64.2..64.1.195.128..60 <016> 

289 FOR LV=24 TO 63:READ A(20,LV):NEXT <169> 

290 DATA 16,,,24,,,24,,,88,,,228,,1,52,,1, 
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252.. 1.252.0.3.254.0.3.239 <180> 

291 DATA 127,255,254,255,255,254,255,255,2 
50,127,255,252 

292 FOR LV=1 TO 63:READ A(21,LV):NEXT 

293 DATA,126,,,255,,,255,,1,255,128,1,255, 
128,3,255,192,3,255,192,7,255,224,7 

294 DATA 255,224,15,255,240,15,255,240,31, 

255.248.31.255.248.63.255.252.63.255 

295 DATA 252,127,255,254,127,255,254,255,2 

55.255.128.. 1.128..1.255.255.255 

296 FOR LV=1 TO 63:READ A(22,LV>:NEXT 

297 DATA,24,,,24,,,24,,,60,,,126,,,255,,1, 

255.128.3.255.192.7.255.224.15.255 

298 DATA 240,15,255,240,12,24,48,12,24,48, 
12,24,48,15,255,240,15,255,240,12,24,4 
8 

299 DATA 12,24,48,12,24,48,15,255,240,15,2 
55,240 

300 FOR LV=0 TO 12:FOR LW=0 TO 6 :READ DCLW 
,LV):NEXT:NEXT 

310 DATA 4,20,8,16,28,24,8 
320 DATA 6,6,16,28,30,60,12 
330 DATA 22,26,24,10,18,26,14 
340 DATA 26,24,24,24,24,44,2 
345 DATA,,,,,18,8 
350 DATA 20,28,12,,,, 

355 DATA 6,2,22,8,,, 

360 DATA 22,24,30,12,,, 

370 DATA 18,24,26,10,,, 

375 DATA,,4,,,, 

380 DATA 4,, 6 ,,,, 

385 DATA 22,16,18,24,,, 

390 DATA 2,,,,,, 

400 FOR LV=0 TO 10:READ A*(LV):NEXT 
410 DATA SCHRIFTROLLE,SCHWERT,FACKEL,PANZE 
RHEMD,SCHLUESSEL,LATERNE,BUCH,PLATTE 

420 DATA EIMER,UHR,SEIL 

421 E(6,0)=4:E(0,1)=2:E(2,2)=1:E(6,2)=2:E( 
2,3)=1:E(6,4)=B:E(5,1)=64:E(1,6)=64 

422 E(2,6)=32:E(3,6)=8:E(1,7)=4:E(2,7)=1:E 

(0,10)=4:E(2,10)=1:E(3,11)=16 <0B8> 

423 E(0,12)=4 <227>Qi 

430 C(0,0)=1:C(2,0)=2:C(3,0)=8:C(2,1)=4:C( 

4,1)=1024:C(6,3)=16 

440 C(1,5)=512:C(3,7)=32:C(0,11)=192:C(2,9 
) =256 

500 PRINT"tUP,40SPACE,UP>BITTE EINE TASTE 
DRUECKEN“ 

510 GET AS:IF A$=""THEN 510 
1000 POKE 53281,5:POKE 53280,0:POKE VI+21, 

0 

1010 PRINT“ tCLR,BLACK>"; 

1020 FOR LV=l TO 13 

1025 IF LV <6 THEN PRINT"tRVSON,LIG.BLUE, 6 S 
PACE,BLACK,22SPACE,LIG.BLUE, 6 SPACE,BL 
ACK,6SPACE1";:GOTO 1040 
1027 IF LV>9 THEN PRINT"tRVSON,17SPACE,GRE 

Y 1,6SPACE,BLACK,17SPACE1";:GOTO 1040 <158> 
1030 PRINT"TRVSON,40SPACE} "; <052> 

1040 NEXT <150> 

1050 PRINT"tBLUE,4D0WN >"; <153> 

1060 PRINT" tRVOFF> Wi-WoTf tRVSON>tjW7TT< 12 


<205> 

< 120 > 

<226> 

<005> 

<062> 

< 125> 

< 138> 


< 124> 

<045> 

<146> 

<255> 

<053> 

< 159> 

< 122 > 

< 134> 
<025> 
<243> 
<132> 
<150> 
<055> 

< 114> 

< 167> 
<068> 

< 112 > 

< 137> 

<014> 

<017> 


<208> 

<050> 

<095> 

<09B> 

<23B> 

<048> 

<013> 


< 200 > 


< 118> 
<018> 
< 102 > 
< 200 > 


1070 FOR LV=1 TO 6 
1080 PRINT"TRVSON,40SPACE>"; 

1090 NEXT 

1095 PRINT"tRVSON,39SPACE>"j:POKE 2023,160 <208> 
1100 POKE 2040,13:POKE 2041,14:POKE 2042,1 
5 

1110 FOR LV=0 TO 62:POKE B32+LV,A(1,LV+1): 

NEXT 

1120 FOR LV=0 TO 62:POKE 896+LV,A(2,LV+1): 

NEXT 

1130 FOR LV=0 TO 62:POKE 960+LV,A(3.LV+1): 

NEXT 

1140 POKE VI+29,7:POKE VI+23,7:P0KE VI+39, 

0:POKE VI+40,0:POKE VI+41,11:POKE VI+ 

21,7 

1150 POKE VI,24:POKE VI+1,50:POKE VI+2,248 
:POKE VI+3,50:POKE VI+4,160:POKE VI+5 
,80 

1160 GET A*:IF A*=""THEN 1160 
1165 POKE VI+21,0 

1170 PRINT:PRINT"tBLACK,RVOFF>DU STEHST VO 
R DEM TOR VON MARIO. DAVOR" 

1180 PRINT"LIEGT EIN DUNKLER, UNHEIMLICHER 

SEE." <151> 


<145> 


< 121 > 


< 142> 


< 145> 


< 177> 


<014> 

<033> 

<048> 

< 179> 


1190 PRINT"MOEGLICHE RICHTUNGEN:W. 

1200 PRINT"DANGALF UEBERSETZT DIE WORTE,DI 
E AUF" 

1210 PRINT"DEM TOR GESCHRIEBEN SIND, AUS D 
EM ELBI- SCHEN:" 

1220 PRINT"'SPRICH,-FREUND’,UND TRITT EIN. 
1410 GOTO 6000 

1500 POKE 53280,0:POKE 53281,12:POKE VI+21 
,0:POKE VI+23,1:POKE VI+29,1:P0KE 204 

1510 PRINT"tCLR>";:FOR LV =8 TO 18 STEP 2:P 
RINT"tGREY 1,RVSON,11SPACE>"; 

1520 PRINT SPC(LV/2-4>"tGREY 3,RV0FF>¥";:F 
OR Ll=l TO 24-LV:PRINT"tRVSON,SPACE>" 
;:NEXT:PRINT"tRVOFF>£"; 

1530 PRINT 5PC(LV/2-4>"tRVSON,GREY 1,11SPA 
CE>";:NEXT 

1540 PRINT"tHOME>";:FOR LV=1 TO 15 
1545 IF LV >6 THEN PRINT"tRVSON,GREY 1,1 ISP 
ACE, 6 RIGHT,BLACK, 6 SPACE, 6 RIGHT,GREY 1 
,11SPACE >";:GOTO 1560 

1550 PRINT"tRVSON,GREY 1,11SPACE,18RIGHT,1 
1SPACE>"; 

1560 NEXT 

1570 FOR LV=10 TO 0 STEP-2 

1580 PRINT"tGREY 1,RVSON,11SPACESPC(LV/ 
2)"tGREY 3>£";:F0R Ll=l TO 16-LV:PRIN 
T"tRVSON,SPACE >";:NEXT 
1590 PRINT"tRVSONJS";SPC(LV/2)"tRVSON,GREY 
1,11SPACE >";:NEXT 

1600 POKE 2040,13:POKE VI,160:POKE VI+1,64 
-.POKE VI+39,0 

1610 FOR LV=0 TO 62:POKE 832+LV,A(3,LV+1): 
NEXT:POKE VI+21,1 

1620 PRINT"tRVOFF,BLACKJEIN HELLER GANG."; 
1625 IF M3=0 THEN PRINT"PLOETZLICH SCHLAEG 
T JE- MAND DAS EINGANGSTOR ZU.":M3=1 
1630 PRINT"RICHTUNGEN: 0":RI*="0" 

1640 GOSUB 11000:GOTO 15000 
2000 POKE 53280,0:POKE 53281,11:POKE VI+21 
,0:POKE VI+23,1:POKE V1+29,1 
20114 PRINT" tCLRJ"; :FOR LV =8 TO 18 STEP 2:P 
RINT"tBLACK,RVSON,11SPACE >"; 

2020 PRINT SPC(LV/2-4)"tGREY 2,RV0FF}*";:F 
OR Ll=l TO 24-LV:PRINT"tRVSON,SPACE>" 
NEXT:PRINT"tRVOFF>£"; 

2030 PRINT SPC(LV/2-4)"tRVSON,BLACK,11SPAC 
E>";:NEXT 

2040 PRINT"tHOME>";:FOR LV=1 TO 6 
2050 PRINT"tRVSON,BLACK,11SPACE,18RIGHT,11 
SPACEJ";:NEXT 

2060 HV=D(X,Y):HV=(HV AND 159) 

2063 IF HV>=16 THEN B(4)=l 

2064 FOR LV=7 TO 15 

2065 IF B(4)=1 THEN PRINT"tRVSON,BLACK,1IS 
PACE, 6 RIGHT,BLACK, 6 SPACE, 6 RIGHT,BLACK 
,11SPACE >";:GOTO 2069 

2066 PRINT"tRVSON,BLACK,11SPACE, 6 RIGHT,GRE 
Y 1, 6 SPACE, 6 RIGHT,BLACK,11SPACE >"; 

2069 NEXT 

2070 FOR LV=10 TO 0 STEP-2 

2080 PRINT"tBLACK,RVSON,11SPACE >";SPC(LV/2 
)"tGREY 2>£";:FOR Ll=l TO 16-LV:PRINT 
"tRVSON,SPACE>";:NEXT 

2090 PRINT"tRVSON>¥";SPC(LV/2)"tRVSON,BLAC 
K,1ISPACEJ";:NEXT 

2100 POKE 2040,13:POKE VI,160:POKE VI+1,64 

2105 IF B(4)=1 THEN POKE VI+39,0 

2106 IF B(4)=0 THEN POKE VI+39,11 
2110 FOR LV=0 TO 62:POKE 832+LV,A(3,LV+1): 

NEXT:POKE VI+21,1 
2115 GOSUB 10100 
2120 IF B(1)=0 THEN 2200 
2130 B(1)=0 

2135 PRINT"tHOME,12RIGHT,9DOWN >"; 

2140 FOR LV=1 TO 7:PRINT"tBLACK,RVOFFJHtRV 
SON, 2SPACE,RVOFF Jg-tDOWN, 4LEFTJ" ;: NEXT 
2150 PRINT"tRVOFF>HtRVSON,SPACE,RVOFF>£t3L 
EFT,DOWN >R£tDOWN}" 

2160 POKE 2041,14:POKE VI+2,112:POKE VI+3, 
80:POKE VI+40,0 

2170 FOR LV=0 TO 62:POKE 896+LV,A(4,LV+1): 
NEXT 

2180 POKE VI+23,3:P0KE VI+29,3:P0KE VI+21, 
3 

2190 RI$=RI*+"N" 


< 168> 
< 200 > 

< 146> 

< 174> 
<214> 


<148> 
< 192> 


< 103> 


< 171 > 

< 127> 


<157> 

<223> 
< 160> 
<1B4> 


< 153> 

< 121 > 
<041 > 

<075> 

< 119> 

< 136> 
<255> 

< 166> 

< 197> 
<175> 


<090> 

< 154> 
<068> 

< 13B> 

< 157> 
<091 > 
<046> 


< 191 > 

<087> 

< 159> 

< 174> 


< 101 > 


<104> 
<061 > 

< 197> 
<247> 

< 065 > 
< 202 > 
<236> 

< 000 > 

<127> 

<234> 

<026> 

<046> 

<174> 

<240> 

< 002 > 
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2200 IF B(2)=0 THEN 2300 <062> 

2210 B<2)=0 <081> 

2220 PRINT"{H0ME,24RI6HT,9D0WNJ"; <048> 

2230 FOR LV=1 TD 7:PRINT"{BLACK,RVOFFJrKRV 

SON,2SPACE,RVOFF J'glDOWN, 4LEFTJ ";:NEXT <06B> 
2240 PRINT"{RIBHT,RVOFF J¥{RVSON,SPACE,RVOF 

F J ^ {2LEFT , DOWN J^tT CDOWN > " <092> 

2250 PDKE 2042,15:PQKE VI+4,208:POKE VI+5, 

80:PQKE VI+41,0 <149> 

2260 FOR LV=0 TD 62:POKE 960+LV,A(5,LV+1) : 

NEXT <001> 

2270 PDKE VI+23,7:PDKE VI+29,7:P0KE VI+21, 

PEEK(VI+21)+4 <188> 

2280 RI*=RI*+“-S" <142> 

2300 IF B(3)>0 THEN B(3)=0:RI*=RI*+”-W" <097> 

2310 IF B(4)>0 THEN B<4>=0:RI*=RI*+"-0" <102> 

2315 IF B( 6 )>0 THEN B( 6 )=0:RI*=RI*+"-H" <104> 

2320 IF B(5)=0 THEN 2400 <187> 

2330 B(5)=0:RI*=RI*+"-R" <164> 

2340 PRINT"{HOME,19RIGHT,17DOWNJ"; <160> 

2350 PRINT"{GREY 2,RVSON>öiUC4LEFT,DOWN,BL 

ACKJ£2 £*{4LEFT,DOWN,2LEFT>£ 5E" <098> 

2400 PRINT"{RVOFF,BLACK,HOME,21DOWNJEIN DU 

NKLER GANG.<087> 
2410 PRINT"{BLACKJRICHTUNGEN:“;RI* <011> 

2420 GOSUB 10000 <251> 

2430 PRINT“{BLACKJGEGENSTAENDE:";GE* <131> 

2440 GOSUB 10300 <018> 

2450 PRINT"{BLACKJBESONDERHEITEN:<140> 
2460 IF FG*=""THEN FG*="KEINE" <145> 

2470 PRINT FG* <249> 

2480 GOSUB 11000:GOTO 15000 <241> 

3000 PRINT"<CLR,BLACK>";:POKE 53280,0:POKE 

53281,12:P0KE VI+21,0 <105> 

3010 FOR LV=1 TO 5:PRINT SPC (LV-1 > "fl."SPC (3 

9—2*LV)"H": NEXT <017> 

3020 PRINT SPC (5) " QVVyYyYyYyV/yVyWT’yWyYy’ 

Y YYYfi" <164> 

3030 FOR LV=1 TO 8 :PRINT SPC(5) '"g"SPC(27)" 

H":NEXT <098> 

3035 PRINT SPC(5) " L.P P P P P P P PPPPPP P F p p p p p P'P’P 

■pp-p’p-O" <-194> Q 

3040 FOR LV=5 TO 1 STEP-1:PRINT SPC(LV-1)" 

H" SPC(39—2*LV)"fl":NEXT <180> 

3050 FOR LW=10 TO 25 STEP 15 <070> 

3060 PR I NT " {HOME , DOWN > " SPC (LW) "gWq<4LEFT, 

DOWNJffp?ii" < 196> 

3065 FOR LV=1 TO 14 <019> 

3067 IF LV=3 THEN PRINT SPC(LW)"£<2SPACEJ0 

“5 GOTO 3080 <059 > 

3068 IF LV=12 THEN PRINT SPC(LW)"ß<2SPACE> 

i.": GOTO 3080 <083> 

3070 PRINT SPC(LW)"H<2SPACE>^" <164> 

3080 NEXT <150> 

3090 PRINT SPC(LW)"ÜY7JK4LEFT,DOWNJTtTT" <135> 
3095 NEXT LW • <072> 

3097 GOSUB 10100 <164> 

3100 IF B(1)=0 THEN 3200 <197> 

3110 B(1)=0 <216> 

3120 PRINT"<HOME,5D0WN>Hfl<D0WN,2LEFT>H Ö<D 

OWN,3LEFT >HV£" <202> 

3130 FOR LV=1 TO 8 :PRINT"W W":NEXT <073> 

3140 PRINT"H^BIDOWN,3LEFTJHC2SPACE,2LEFT,D 

OWN,LEFT>W " <091> 

3145 RI*=RI*+"—N" <238> 

3200 IF B(2)=0 THEN 3300 <043> 

3210 B(2)=0 <061> 

3220 PRINT"{HOME,5D0WNJ"TAB(37)"HS{3LEFT,D 

OWN J fl 'S {DOWN , 3LEFT > B.YS" <064> 

3230 FOR LV=1 TO 8 :PRINT TAB(36)"S 'S": NEXT <222> 
3240 PRINT TAB(36)"i.?S{DaWN,3LEFT,2SPACE>S 

{DOWN,2LEFT,SPACEJS" <099> 

3250 RI*=RI*+"—S" <092> 

3300 IF B(4> =0 THEN 3400 <146> 

3310 B(4)=0 <163> 

3320 PRINT"{HOME,6D0WNJ"TAB(17)"og9Sq{DOWN 

, 6 LEFT JHÖ5BSKS" <152 > 

3330 FOR LV=1 TD 6 :PRINT TAB(16)"WH{3SPACE 

>SS":NEXT <141> 

3340 PRINT TAB (16) "SÜTTTALODOWN J" <136> 

3350 RI*=RI*+"-0“ <189> 

3400 IF B( 6 )>0 THEN B( 6 )=0:RI*=RI*+"-H" <169> 

3500 PRINT"{BLACKJEIN RAUM MIT SAEULEN,DER 

DURCH SCHAECHTEBELEUCHTET WIRD."; <183> 
3510 PRINT"{BLACKJRICHTUNGEN:";RI* <091> 

3520 GOSUB 10000 <075> 

3530 PRINT"{BLACKJGEGENSTAENDE:";GE* <211> 


T T 


<098> 
< 210 > 
<141> 
<045 > 

<081 > 
<043> 
<171> 


<073> 


<062> 

< 000 > 


3540 GOSUB 10300 
3545 IF FG*=""THEN FG*="KEINE" 

3550 PRINT"{BLACK JBESONDERHEITEN:";FG* 

3560 GOSUB 11000:GOTO 15000 
4000 PRINT“{CLR,GREY 2J";:P0KE 53280,0:POK 
E 53281,0 

4010 PRINT:POKE VI+21,0 
4020 FOR LV=2 TO 20 STEP 2 

4030 PRINT TAB(19—LV/2)"{GREY 2,RVS0NJ£";: 

FOR LW=1 TO LV:PRINT"{RVSON,SPACEJ";: 

NEXT:PRINT"{RVSONJ?" 

4040 PRINT TAB(19-LV/2)"{GREY 1J";:F0R LW= 

1 TO LV+2:PRINT"{RVSON,SPACEJ";:NEXT: 

PRINT 

4045 NEXT LV 
4050 PRINT" {GREY 2JTTTTTTTTTTTTTTTTTTiTTTT 

TTTTTTTTTTTTTTTTT"; < 009 > 

4060 RI*="W-O-N-S" <110> 

4070 PRINT"EINE TREPPE, SONST IST ALLES DU 

NKEL." <216> 

4080 PRINT"RICHTUNGEN:";RI*;" ; NICHTS BES 

QNDERES" <116> 

4090 GOSUB 10000 <135> 

4092 PRINT"{GREY 2JGEGENSTAENDE";GE* <213> 

4097 GOSUB 11000:GOTO 15000 <073> 

4100 POKE VI+21,0:POKE 53281,15:POKE 53280 

,0 <072> 

4120 PRINT"{CLR,BLACKJ“; <099> 

4130 FOR LV=0 TO 3 <014> 

4132 IF LV=0 THEN 4140 <179> 

4135 FOR LW=1 TO LV <132> 

4137 PRINT"{GREY 2,RVSON,SPACEJ";:NEXT <183> 

4140 PRINT"{GREY 2,RVSONJ*"SPC(37-2*LV)"{G 

REY 2,RVS0NJ£" <157> 

4150 NEXT LV <106> 

4155 PRINT"{HOME,GREY 2,D0WNJ“TAB(38)"{RVS 
ON,SPACE,DOWN,2LEFT,2SPACE,DOWN,3LEFT 
,3SPACEJ" <164> 

4160 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 

Y 2J¥{RV0FF,15SPACE,RVS0NJ£{GREY 1,78 

PACE J" <165> 

4165 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 
! 2,SPACE>»{RV0FF,13SPACE,RVSONJ£{SPA 
CE,GREY 1,7SPACEJ” <170> 

4170 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 

Y 2,2SPACEJS{RVOFF,11SPACE,RVSONJ£C2S 

PACE,GREY 1,7SPACEJ" <175> 

4175 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 

Y 2,3SPACEJ5IRVOFF,9SPACE,RVSONJ£{3SP 

ACE,GREY 1,7SPACEJ" ,<180> 

4180 FOR LV=1 TO 5:PRINT"{4RIGHT,GREY 1,RV 
SON,7SPACE,GREY 2,4SPACE,BLACK,9SPACE 
,GREY 2,4SPACE,GREY 1,7SPACEJ":NEXT <13B> 

4185 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 

Y 2,3SPACE,RVOFFJ£{9SPACEJ¥{RVSON,3SP 

ACE,GREY 1,7SPACEJ" <190> 

4190 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 

Y 2,2SPACE,RVOFF J£{11SPACE J*{RVSON,2S 

PACE,GREY 1,7SPACEJ" <195> 

4195 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 

Y 2,SPACE,RVOFF J^CBLACK,RVSONJ£{11SPA 
CE J¥{GREY 2,RVOFF J5{RVSON,SPACE,GREY 

1,7SPACEJ" <028> 

4197 PRINT"{4RIGHT,GREY 1,RVSON,7SPACE,GRE 

Y 2,RVOFFJ4IRVS0N,BLACK J£{13SPACEJ?{G 

REY 2,RVOFFJ¥{RVSON,GREY 1,7SPACEJ" <030> 

4200 PRINT"{HOME,4D0WN,GREY 2J";:F0R LV=1 

TO 13 <199> 

4210 PRINT"{RVSON,4SPACEJ"SPC(31>"{RVSON,4 

SPACEJ“ <250> 

4220 NEXT <014> 

4230 PRINT"{RVSON,GREY 2,3SPACE,RVOFFJ£{DO 
WN,4LEFT,RVSON,2SPACE,RVOFF J£{DOWN,3L 
EFT,RVSON,SPACE,RVOFF J£{DOWN,2LEFT J£“ <083> 
4240 PRINT"{4UPJ"SPC(35){RVSON,3SPACE,RV 
OFF,DOWN,3LEFTJ5{RVSON,2SPACE,RVOFF,D 
OWN,2LEFT J® {RVSON,SPACE,RVOFF,DOWN,LE 
FTJ1P" <133> 

4250 FOR LV=0 TO 20:POKE 1063+40*LV,160:PO 

KE 55335+40*LV,12:NEXT <236> 

4260 POKE 1063+40*21,95:POKE 55335+40*21,1 

2 <078> 

4265 IF M5=2 THEN RI*="W-0":GOTO 4275 <110> 

4270 RI*="W—O—N“ <193> 

4275 PRINT"{13UP,RIGHTJ5XDQWN,LEFT,SPACEJ*(DOWN, 

2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT, 
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2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE, 
DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN, 
2LEFT,SPACE,RVSON>£CDOWN,2LEFTJ£{2D0WN >“ 


< 175> 

4300 POKE 2040,11sPOKE 2041,11:POKE 2042,1 
3:POKE 2043,13:POKE 2044,14:POKE 2045 
, 14 <153> 

4310 POKE 2046,15:POKE 2047,15 <011> 

4320 FOR LV=VI+39 TO VI+46:P0KE LV,7:NEXT <099> 
4330 FOR LV=VI TO VI + 12 STEP 4:POKE LV,132 
:POKE LV+1,144:POKE LV+2,180:POKE LV+ 

3,144 <012> 

4340 NEXT <134> 

4350 FOR LV=0 TO 62:POKE 704+LV,A(9,LV+1): 

NEXT <051> 

4360 FOR LV=0 TO 62:POKE B32+LV,A(10,LV+1) 

:NEXT <104> 

4370 FOR LV=0 TO 62:P0KE 896+LV,A<11,LV+1) 

:NEXT <125> 

4380 FOR LV=0 TO 62:POKE 960+LV,A(12,LV+1) 

:NEXT <128> 

4390 POKE VI+23,255:POKE VI+29,255 <145> 

4400 L1=0 <160> 

4410 FOR LV=0 TO 6 STEP 2 <005> 

4420 POKE VI+21,2tLV+2T(LV+1) <158> 

4430 NEXT <225> 

4440 L1=L1+1 <240> 

4450 FOR LV=4 TO 2 STEP-2 <216> 

4460 POKE VI+21,2TLV+2t(LV+1) <19B> 

4470 NEXT <009> 

4480 IF Ll<7 THEN 4410 <243> 

4481 PRINT"{BLACKJEIN RAUM MIT EINEM SCHMA 

LEN ABGRUND, AUSDEM FEUER DRINGT." <014> 

4482 PRINT"{BLACKJRICHTUNGEN:";RI$" BESOND 

ERHEITEN:FEUER" < 047 > 

4483 GOSUB 10000 <01B> 

4484 PRINT"{BLACKJGEGENSTAENDE:";GE$ <145> 

4486 GOSUB 11000:GOTO 15000 <207> 

4500 PRINT"<CLR,BLACKJ ";:POKE 53280,0:POKE 

53281,12:POKE VI+21,0 <075> 

4510 FOR LV=0 TO 4 <140> 

4520 PRINT TAB(LV)"ß"SPC(37-2*LV)"H":NEXT <003> 
4530 PRINT TAB (5) " flWW7W777Y7VY7YW'?W?Y 

YVW£" < 141 > 

4540 FOR LV=1 TO 9: PRINT TAB (5) "ff"SPC (27) " 

ff":NEXT <076> 

4550 PRINT TAB (5) " L.pWp'p'p'p'p'p'pVp'-C 4SPACE>-p-pp 


PPPPPPP'PS" <244> 
4560 FOR LV=0 TO 4 <190> 
4570 PRINT TAB(4—LV)"{RVSONJ£";:FOR Ll=l T 

Q LV <108> 
4580 IF LV=0 THEN 4600 <117> 
4590 PRINT"<RVSON,SPACE>“;:NEXT LI <098> 
4600 PRINT:NEXT LV <000> 
4610 PRINT"<5UP>";:FOR LV=0 TO 4 <024> 
4620 PRINT TAB (34);:FOR Ll=l TO LV <134> 
4630 IF LV=0 THEN GOTO 4650 <054> 
4640 PRINT"{RVSON,SPACEJ"; :NEXT LI <117> 
4650 PRINT" {RVSONJ1?" <010> 
4660 NEXT LV <106> 
4670 PRINT"{5UPJ";:FOR LV=1 TO 5 <086> 
4680 PRINT TAB(5)"{GREY 1,RVS0N,29SPACE>" <225> 
4690 NEXT <230> 
4695 PRINT“<5UP >"j <086> 


4700 PRINT TAB(IB)"{GREY 2,RVS0N,4SPACE,D0 
WN,5LEFT,GREY 1Jff{GREY 2,4SPACE,GREY 
1Jff{DOWN,6LEFT>r{GREY 2,4SPACE,GREY 1 
Jff{DOWN,6LEFT,RVOFFJ TT CRVSON,GREY 2,4S 


PACE,GREY 1>1T" < 139> 

4710 PRINT TAB(17)"{GREY lJff{GREY 2,4SPACE 

,GREY 1>T" <186> 

4720 PRINT"{10UPJ";:FOR LV=1 TO 5 <093> 

4730 PRINT TAB(18)"{RVSON,ORANGE,4SPACEJ" <049> 
4740 NEXT <024> 

4750 PRINT TAB(17)"{BLACK,UPJß{UP,LEFTJff{U 
P, LEFTJff{UP, LEFT >ff {UP, LEFT >ff {UP >?Wp{ 

DOWNJ7{DOWN,LEFTJff{DOWN,LEFTJff{DOWN,L 
EFT Jff{DOWN,LEFT Ji.{5D0WNJ" <171> 

4760 PRINT"EINE SCHMALE BRUECKE FUEHRT AUF 

EINE{4SPACEJTUER ZU."; <201> 

4770 IF E(X,Y> >0 THEN PRINT"EIN UNGEHEUER 

VERSPERRT DEN WEG" <034> 

4780 PRINT"RICHTUNGEN:W—O":RI$="W—O" <097> 

4790 GOSUB 10000 <070> 

4800 PRINT"{BLACKJGEGENSTAENDE:";GET <206> 

4805 GOSUB 10300 <088> 

4810 PRINT"BESONDERHEITEN:";FG$ <238> 


4820 

5000 

5020 

5030 


5040 

5100 

5120 

5125 

5126 

5127 

5130 

5140 

5200 

5220 

5230 

5240 

5250 

5270 

5280 

5300 

5320 

5321 

5322 


5324 

5330 

53 =” 

5370 

5380 

5400 

5420 

5500 

5520 


5600 

5615 

5617 

5620 

5630 

5700 

5720 

5760 

5770 

5800 

5820 

5830 

5900 

5920 

5930 

5950 

5970 


GOSUB 11000:GOTO 15000 

POKE 2043,11:FOR LV=0 TO 62:POKE 704+ 

LV,A < 6 ,LV+1):NEXT 

POKE VI+23,PEEK(VI+23)OR 8:P0KE VI+ 6 , 
160:POKE VI+7,134:POKE VI+42,11 
POKE V1+29,PEEK(VI+29)OR 8 :POKE VI+21 
,PEEK(VI+21)OR 8 
RETURN 

POKE 2043,11:POKE 2044,11:FOR LV=0 TO 
62:POKE 704+LV,A(7,LV+1):NEXT 
POKE VI+6,160:POKE VI+7,132:POKE VI +8 
,160:POKE VI+9,175 

IF(D(X,Y)AND 16) =16 THEN F'OKE VI+42,1 

1:POKE VI+43,11:GOTO 5127 

POKE VI+42,0:POKE VI+43,0 

POKE VI+23,PEEK(VI+23)OR 24:POKE VI+2 

9,PEEK(VI+29)OR 24 

POKE VI+21,PEEK(VI+21)OR 24 

RETURN 

POKE VI+44,11 

POKE 2045,11:FOR L1=0 TO 62:POKE 704+ 
L1,A(15,L1+1):NEXT 

POKE VI+10,200:POKE VI+11,180:POKE VI 

+21,PEEK(VI+21)OR 32 

RETURN 

POKE 2045,14:FOR L1=0 TO 62:POKE 896+ 
LI,A(19,L1+1):NEXT 

POKE VI+44, 6 :POKE VI+10,140:POKE VI+1 
1,170 

POKE VI+21,PEEK(VI+21)OR 32:RETURN 
POKE 2047,11:FOR L1=0 TO 62:POKE 704+ 
LI,A(22,L1+1):NEXT 

POKE VI+46,0:POKE VI+14,196:POKE VI+1 
5,191:POKE VI+21,PEEK(VI+21)OR 128 
POKE VI+23,PEEK(VI+23)AND 127:POKE VI 
+29,PEEK(VI+29)AND 127 
IF X>0 AND X<3 AND Y=ll THEN PRINT”{R 
VSON,YELLOW,4UP,22RIGHT,2SPACE,3D0WNJ 
“:GOTO 5330 

PRINT"{RVSQN,YELLOW,3UP,22RIGHT,2SPAC 
E,2DOWNJ" 

RETURN 

POKE 2040,14:FOR L1=0 TD 62:POKE 896+ 
L1,A(21,L1+1):NEXT 

POKE VI+39,2:P0KE VI,157:P0KE VI+1,16 

1:POKE VI+21,PEEK(VI+21)0R 1 

POKE VI+29,PEEK(VI+29)OR l:POKE VI+23 

,PEEK(VI+23)AND 254:RETURN 

POKE 2046,11:FOR L1=0 TO 62:POKE 704+ 

L1,A(18,L1+1):NEXT 

POKE VI+45,0:POKE VI+12,180:POKE VI+1 
3,180:POKE VI+21,PEEK(VI+21)OR 64:RET 
URN 

POKE 2047,11:FOR L1=0 TO 62:POKE 704+ 
L1,A(20,L1+1):NEXT 

POKE VI+46,7:POKE VI+14,200:POKE VI+1 
5,180:POKE VI+21,PEEK(VI+21)OR 128:RE 
TURN 

POKE 2047,11:FOR L1=0 TO 62:POKE 704+ 

L1,A(B,L1+1):NEXT 

IF PEEK(VI+21)>127 THEN 5620 

POKE VI+21,PEEK(VI+21)+128 

POKE VI+46,0:POKE VI+14,174:POKE VI+1 

5,167 

RETURN 

FOR L1=0 TO 62:POKE 704+L1,A(13,L1+1) 

: NEXT 

POKE 2046,11:POKE VI+12,160:POKE VI+1 
3,170:POKE VI+45,0 

POKE VI+21,PEEK(VI+21)OR 64:POKE VI+2 
3,PEEK(VI+23)AND 191 

POKE VI+29,PEEK(VI+29)AND 191:RETURN 
FOR L1=0 TO 62:POKE 704+L1,A(14,L1+1) 
:NEXT 

POKE 2047,11:POKE VI+14,165:POKE VI+1 
5,155:POKE VI+46,15 

POKE VI+21,PEEK(VI+21)OR 128:RETURN 
POKE 2046,11:FOR L1=0 TO 62:POKE 704+ 
L1,A(16,L1+1>:NEXT 

POKE VI+45,ll:POKE VI+12,123:POKE VI+ 
13,197 1 

POKE VI+21,PEEK(VI+21)0R 64:RETURN 
POKE 2047,13:FOR L1=0 TO 62:POKE 832+ 
L1,A(17,L1+1):NEXT 

POKE VI+46,11:POKE VI+14,138:PDKE VI+ 
15,180:POKE VI+21,PEEK(VI+21)OR 12B:R 


< 030 > 

<229> 

<255> 

<047> 
<081 > 

< 115> 

< 049 > 

< 178> 
<153> 

<241 > 
<098> 

< 182> 
<058> 

< 133> 

<063> 

< 026 > 

<1B2> 

<208> 
< 191 > 

<213> 

<199> 

<025 > 


<098> 

<192> 
< 116> 

< 014 > 

<073> 

<182> 

<062> 

< 181 > 
< 156> 


<079> 

<214> 
<013> 
< 121 > 

<064> 
< 161 > 

<059> 

< 192> 

< 14B> 
<240> 

< 160> 

< 104> 
<029> 

<050> 

< 120 > 
<081 > 

< 106> 
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Listing »Mario« (Fortsetzung) v 

ETURN 

6000 TI*="000000":TU=0 

6020 POKE 207,0:POKE 204,0 

6030 PRINT"{BLACK.RVOFFJKOMMANDO? 

6035 B*="":LV=0 
6040 GET A* 

6042 IF VAL(TI*)<45 THEN 6047 

6043 PRINT"PLOETZLICH KOMMEN ARME AUS DEM 
SEE UND REISSEN DICH HINEIN":GOTO 800 
0 

6047 IF A*=""THEN 6040 

6050 IF A*< >" "AND A*<>CHR*(20)AND A*<>"'" 
AND A*< >CHR*(13)THEN 6060 
6055 GOTO 6080 

6060 IF ASC(A*)<65 OR ASC(A*)>90 THEN A*=" 

II 

6080 PRINT A»; 

6090 IF A*=CHR*(20)AND B*>“"THEN LV=LV-1:B 
*=LEFT *(B*,LV):A*="" 

6100 IF A*=CHR*(13)THEN PRINT:GOTO 6130 
6105 IF A*>""THEN LV=LV+1 
6110 B*=B*+A* 

6120 GOTO 6040 

6130 IF LEFT* (B*,4)0"SAGE"THEN 6170 
6140 IF RIGHT*(B*, 6 )< >"FREUND"AND RIGHT*(B 
*,7><>"FREUND'"THEN 6160 
6150 PR INT "DAS TOR IST OFFEN! MOEGLICHE RI 
CHTUNGEN:W-0":TU=1:GOTO 6030 
6160 PRINT RIGHT*(B*,LEN(B*)-5):GOTO 6030 
6170 IF LEFT*(B*, 6 )< >"BRINGE"OR RIGHT*(B*, 
2)0"UM"THEN 6200 

6180 IF MID*(B*,B,7><>"DANGALF"THEN PRINT" 
NICHT MOEGLICH!":GOTO 6030 
6190 PRINT"DANGALF HAT DICH MIT EINEM BLIT 
Z ZU BO- DEN GEWORFEN. PLOETZLICH " 
6195 PRINT"KOMMEN ARME AUS DEM SEE UND ZIE 
HEN DICH HINEIN. ■■: GOTO 8000 
6200 IF B*< >"W"THEN 6230 

6210 PRINT"WARGE HABEN DICH GEFRESSEN.":GO 
TO 8000 

6230 IF B*="OEFFNE TOR"THEN PRINT"SO EINFA 
CH GEHT DAS NICHT!":GOTO 6030 
6240 IF B*=“HILF“THEN PRINT"ES HANDELT SIC 
H WOHL UM EIN TOR, DAS" 

6250 IF B*="HILF"THEN PRINT"MIT ZAUBERWORT 
EN VERSCHLUESSELT IST.":GOTO 6030 
6260 IF B*="0"AND TU=1 THEN X=X+l:GOTO 150 
0 

6290 IF B*="SPEICHERE"OR B*="LADE"THEN PRI 
NT"NOCH UNMOEGLICH!“:GOTO 6030 
6295 PRINT"WIE BITTE???”:GOTO 6030 
8000 POKE VI+21,0 

8005 PRINT"{5D0WNJDU BIST TOT.{2D0WNJ" 

8010 PRINT"WILLST DU EIN NEUES SPIEL?" 

8020 GET A*:IF A*="J"THEN 8040 
8030 IF A*< >"N"THEN 8020 
8035 END 

8040 IF M7>4 THEN RUN 

8050 RI*="":GE*="":GD*="":TU=0:X=-2:Y=3:Ml 
=0: M2=0 : M3=0: M4=0: M5=0: M6=0: FG*= " " 
8060 D(6,4)=8:D(0,6)=6:D(3,6)=8:D(0,11)=22 
:C*=”":FOR LV=1 TO 3:GS*(LV)="":NEXT 
8070 FOR LV=0 TO 6:F0R L1=0 TO 12:C(LV,L1) 
=0:E(LV,LI)=0:NEXT 
8080 M7=M7+1:GOTO 20 
9000 POKE 53280,0:POKE 53281,14 
9020 PRINT"{CLR.BLUEJSIE STEHEN VOR DEM TO 
R VON MARIO, EINER ALTEN ZWERGENMINE. 

9030 PRINT"DA SIE DOFRO,DEN HOBBIT DARSTEL 
LEN, DARF ICH SIE HOFFENTLICH DUZEN." 
9040 PRINT"WAS HOBBITS FUER WESEN SIND, DA 
RUEBER<3SPACE>INFORMIERT MAN SICH AM" 
9050 PRINT"BESTEN IN J.R.R. TOLKIENS 'DER 
HERR DER RINGE'.IN DEINER BEGLEITUNG" 
9060 PRINT"BEFINDET SICH DANGALF,EIN SEHR 
ALTER UND WEISER ZAUBERER." 

9070 PRINT"DEIN ZIEL IST ES, DURCH DIE MIN 
E ZU KOM-MEN. DABEI SIND DIE" 

90B0 PRINT"HIMMELSRICHTUNGEN ETWAS UNGEWOE 
HNLICH:( 6 SPACE,DOWNJO(DOWN JS(DOWN,2LE 
FT > W{UP,2LEFT >N" 

9085 PRINT"(DOWNJBEFEHLE: OEFFNE{2SPACEJHI 
LF(WENN DU NICHT WEI-TER WEISST) NIMM 
{2SPACE >LIST”; 

9086 PRINT"(GEGENSTAENDE AUF-LISTEN)"; 


<072> 
<035> 
<234> 
< 116> 

< 196> 

< 181 > 
< 167> 


< 115> 
<013> 

< 141 > 
<021 > 

<048> 

<016> 

< 180> 
<214> 
<077> 

< 130> 
<082> 
<176> 

< 133> 

<042> 

<083> 

<068> 

< 147> 

< 175> 

<230> 

< 178> 

<126> 

<052> 

< 118> 

< 136 > 

< 106> 

< 143> 
<050> 
<254> 

< 168> 
<214> 
<086> 
< 212 > 
< 002 > 
<172> 

<239> 

<053> 

<089> 

< 105> 

< 165> 


<079> 

< 171 > 
<046> 

< 159> 
<175> 
<013> 


< 139> 


< 165> 
<076> 


9087 PRINT"{2SPACE>VERLIERE(2SPACEJHEBE<2S 
PACE JENTLEERE(2SPACE JSPEI-CHERE(2SPAC 
E JLADE{2SPACE JWIRF{2SPACE >LIES{2SPACE 
JBRINGE UM" 

90B8 PRINT"SAGE(DANACH BITTE KEIN GAENSEFU 
SS)(2SPACEJN(2SPACEJS(2SPACEJO{2SPACE 
JWC2SPACEJR(RUNTER){2SPACEJH(HOCH)" 
9090 RETURN 

10000 HV=C(X,Y):FOR LV=10 TO 0 STEP-1 

10025 IF HV<2TLV THEN 10040 

10026 ON LV+1 GOSUB 5900,5200,5500,5600,54 
00,5300,5950,5350,5250,5700,5800 

10030 GE*=GE*+A*(LV):GE*=GE*+" ":HV=HV-2tL 
V 

10040 NEXT:RETURN 

10100 HV=D(X,Y):FOR LV =6 TO 1 STEP-1 
10130 IF HV>=2TLV THEN B(LV)=1:HV=HV-2tLV 
10140 NEXT:RETURN 

10200 ":FG*="" 

10230 IF Y=11 AND X=1 THEN 4000 

10235 IF X=-l THEN 1500 

10240 IF Y=11 AND X=2 THEN 4100 

10245 IF X=—2 THEN 1000 

10250 IF Y=11 AND X=3 THEN 4500 

10260 IF Y >8 THEN 3000 

10270 GOTO 2000 

10300 HW=0:HV=0:FOR LV=0 TO 5 

10315 IF E(X,Y><>2TLV THEN 10320 

10317 HW=LV:LV=5:HV=1 

10320 NEXT:IF HV<1 THEN RETURN 

10330 IF HW<3 THEN GOSUB 5100:FG*="ORKS" 

10332 IF HW=5 THEN GOSUB 5000:FG*="RIESENS 
PINNE" 

10333 IF X=3 AND Y =6 AND D(X,Y)<32 THEN GO 
SUB 22300:FG*="UNBEWEGLICHE PLATTE" 

10334 IF X =6 AND Y=4 AND D(X,Y)<32 THEN GO 
SUB 22300:FG*="UNBEWEGLICHE PLATTE" 

10335 IF HW=4 THEN GOSUB 22400:FG*="RALBOG 

10350 RETURN 

10400 IF GD*< >"SEIL"THEN 10405 
1047? IF X =6 AND Y=4 THEN 20000 
104IÖW IF X=3 AND Y =6 THEN 20100 
10405 IF X<0 THEN PRINT"NICHT MOEGLICH!“:G 
OTO 15030 

10410 HV=C(X,Y):HW=0:FOR LV=10 TO 0 STEP-1 
10420 IF 6 D*<>A*(LV)THEN 10450 
10430 IF HV>=2TLV THEN LV=0:HW=1:GOTO 1045 
5 

10450 IF HV>=2TLV THEN HV=HV-2TLV 
10455 NEXT 

10457 IF HW=1 THEN 10470 

10458 IF GD*="PLATTE"AND X =6 AND Y=4 THEN 
PRINT"SIE IST NICHT BEWEGLICH!":GOTO 

15030 

10459 IF GD*="PLATTE"AND X=3 AND Y =6 THEN 
PRINT"SIE IST NICHT BEWEGLICH!":GOTO 

15030 

10460 PRINT"DAS IST HIER NICHT ZU SEHEN":R 
ETURN 

10470 IF GS*(1)=""THEN GS*(1)=GD*:GOTO 105 
20 

10480 IF GS*(2)=""THEN GS*(2)=GD*:GOTO 105 
20 

10490 IF GS*(3)=""THEN GS*(3)=GD*:GOTO 105 
20 

10500 PRINT"DU TRAEGST ZU VIEL":FOR LV=1 T 
O 1500:NEXT:RETURN 

10520 FOR LV=0 TO 10:IF A*(LV)=GD*THEN C(X 
,Y)=C(X,Y)-2 TLV 
10530 NEXT 

10532 IF M 6 =l THEN M6=0:C(X,Y)=C(X,Y)+1024 
10534 IF M5=l AND GD*="PLATTE"THEN M5=0 
10540 RETURN 

10600 IF GS*(1)=GD*THEN 10650 

10620 IF GS*(2)=GD*THEN 10660 

10630 IF GS*(3)=GD*THEN 10670 

10640 PRINT"ICH TRAGE DAS NICHT":RETURN 

10650 GS*(1)="":GDTO 10690 

10660 GS*(2)="":GOTO 10690 

10670 GS*(3)="" 

10690 IF X>-1 THEN 10710 

10692 PRINT"EIN ARM HAT DIE TUER AUFGERISS 
EN,DEN GE-GENSTAND GENOMMEN UND SIE" 

10695 PRINT"WIEDER ZUGEWOR—{2SPACEJFEN.":F 
OR LV=1 TO 3500:NEXT:RETURN 


< 222 > 


< 168> 
<051 > 

< 193> 
<074> 

< 100 > 

<24B> 

<169> 

<252> 

<219> 

<013> 

<117> 

< 106> 
< 000 > 

< 119> 
<007> 

< 134> 

< 115> 

< 145> 

< 183> 
<244> 
<230> 

< 118> 

< 172> 

< 002 > 

< 190> 

< 192> 

<091 > 
<036> 

< 120 > 
<028> 
<029> 

< 178> 
<023> 

< 115> 

< 157> 
< 202 > 

< 129> 

< 177> 


< 011 > 


< 011 > 

<049> 

< 210 > 

< 222 > 

<234> 

< 202 > 

<049> 

<205> 

<137> 

< 104> 
<227> 
<096> 

< 118> 
< 130> 
<243> 
<188> 
<199> 
<015> 
<251 > 


<026> 

<036> 
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10710 FOR LV=0 TO 10:IF A* (LV) =GD*THEN OCX 
,Y)=C(X,Y)+2tLV 
10720 NEXT 

10725 XF GD*="LATERNE"THEN M1=0 
10727 IF GD*="PLATTE"AND X=2 AND Y=ll AND 
M5=0 THEN M5=l 
10730 RETURN 

11000 IF X=2 AND Y=2 THEN 11070 
11040 IF X=2 AND Y=3 THEN 11070 
11050 IF X=2 AND Y=7 THEN 11070 
11060 IF X=2 AND Y=10 THEN 11070 
11065 GOTO 11100 

11070 HW=0:FOR LV=1 TO 3:IF GS*(LV)="SCHWE 
RT"THEN HW=1 

11080 NEXT:IF HW=1 THEN RETURN 
11085 IF E <X,Y)=0 THEN RETURN 
11090 PRINT"ORKS HABEN DICH GEFANGENGENOMM 
EN":GOTO 8000 

11100 IF X=0 AND Y=1 THEN 11120 
11110 IF X=6 AND Y=2 THEN 11120 
11115 GOTO 11160 

11120 HW=0:FOR LV=1 TO 3:IF GS*(LV)="PANZE 
RHEMD"THEN HW=1 

11125 NEXT:IF HW=1 THEN 11130 

11126 IF E(X,Y)=0 THEN RETURN 

11127 PRINT"ORKS MIT PFEIL UND BOGEN HABEN 

DICH BESCHOSSEN":GOTO 8000 
11130 HW=0:FOR LV=1 TO 3:IF GS*(LV)="SCHWE 
RT"THEN HW=1 

11140 NEXT:IF HW=1 THEN RETURN 
11145 IF E(X,Y) =0 THEN RETURN 
11150 PRINT"ORKS HABEN DICH GEFANGENGENOMM 
EN":GOTO 8000 

11160 IF X=6 AND Y=0 THEN 11190 
11170 IF X=1 AND Y=7 THEN 11190 
11180 IF X=0 AND Y=10 THEN 11190 
11185 IF X=0 AND Y=12 THEN 11190 
11187 GOTO 11210 

11190 PRINT"ZUVIELE ORKS STUERMTEN EUCH EN 
TGEGEN.":GOTO 8000 
11210 IF X< >3 OR Y< >11 THEN 11240 
11220 HW=0: FOR LV=1 TO 3: IF GS* (LV) =''PLATT 
E"THEN HW=1 

11230 NEXT:IF HW=1 THEN RETURN 
11232 IF E(X,Y)=0 THEN RETURN 
11235 PRINT"DAS DUNKLE FEUER DES RALBOGS H 
AT DICH VERNICHTET.":GOTO 8000 
11240 IF X<0 THEN RETURN 
11242 IF E(X,Y)=32 THEN 11250 
11245 GOTO 11280 
11250 HW=0:FOR LV=1 TO 3 

11260 IF GS*(LV)="LATERNE"AND Ml=l THEN HW 
= 1 

11262 NEXT:IF HW=0 THEN 11275 
11264 PRINT-DIE LATERNE HAT EINE MAGISCHE 
WIRKUNGC3SPACE>AUF DIE AUGEN DER SPI 
NNE."; 

11266 PRINT"DIE SPINNE IST GEBLENDET UND F 
LUECHTET IN EINEN GEHEI- MEN AUSGANG 

11268 POKE VI+21,PEEK(VI+21>AND 247:G0SUB 
20200:RETURN 

11275 PRINT"DIE RIESENSPINNE HAT DICH GEFR 
ESSEN":GOTO 8000 

11280 IF M2>5 THEN PRINT"DU BIST VOR ERSCH 
OEPFUNG ZUSAMMENGEBROCHEN":GOTO 8000 
11290 IF X=4 AND Y=2 THEN 11304 
11300 IF X=1 AND Y=6 THEN 11304 
11302 GOTO 11310 

11304 POKE VI+21,0 

11305 PRINT"CCLRJDU BIST IN EINE FALLGRUBE 

GELAUFEN.":GOTO 8000 
11310 RETURN 
15000 REM 

15030 INPUT"TRVOFFJKOMMANDO";B* 

15040 IF B*< >"0"THEN 15100 

15060 HW=0:FOR LV=1 TO B:IF MID*(RI*,LV,1> 
="0"THEN HW=1:LV=B 
15070 NEXT:IF HW=1 THEN 15076 

15075 PRINT"NICHT MOEGLICH":GOTO 15030 

15076 IF X<0 THEN 15090 

15077 IF E(X,Y)=1 OR E(X,Y)=2 OR E(X,Y)=4 
THEN 15075 


<23B> 

< 139> 
<080> 

<048> 

< 161 > 

< 117> 

< 127> 

< 173> 
<225> 
<224> 

< 1B2> 

< 113> 

< 141 > 

<043> 
<211 > 
<228> 
<024> 

< 182> 
<006> 

< 1B2> 

<08B> 

<242> 

< 173> 
<201 > 

<103> 

<027> 

<039> 

<090> 

<097> 

<092> 

<019> 
<221 > 

<246> 

<007> 

<032> 

< 141 > 
<014> 

< 202 > 
<157> 
< 181 > 

< 157> 
<152> 


< 123> 


<042> 

<045> 

< 155> 

< 131 > 

< 155> 

< 166> 
<209> 
<243> 

< 220 > 

<232> 

<097> 

<066> 

<12B> 

< 169> 

< 139> 

< 116> 

< 138> 

< 185> 


15078 IF M5=2 AND X=2 AND Y=ll THEN 15094 <194> 

15079 IF X=4 AND Y=ll THEN 15095 <177> 

15080 IF X< >3 OR Y< >11 THEN 15090 <017> 

15082 IF E(X,Y)<>0 THEN PRINT"DER RALBOG H 


AT DICH VERNICHTET.":GOTO 8000 
15083 HW=0:FOR LV=1 TO 3:IF GS*(LV)<>""THE 
N HW=1 

15086 NEXT:IF HW=1 THEN PRINT"DIE BRUECKE 
IST GEBROCHENGDTO 8000 
15088 X=X+1:PRINT"CBLACKJDU STEHST AUF DER 
BRUECKE!“:GOTO 15030 

15090 IF X< >2 OR Y< >11 THEN 15094 

15091 IF M5=0 THEN PRINT"DU BIST IN DEN AB 
GRUND GESTUERZT!":GOTO 8000 

15092 PRINT"DU BIST IM HINTERGRUND DES RAU 
MES“:FOR LV=1 TO 2500:NEXT 

15093 M5=2:GOTO 10200 

15094 X=X+1:RI*="":GOTO 10200 

15095 IF TU=2 AND X=4 AND Y=li THEN 24000 
15100 IF B*<>"W"THEN 15200 

15120 HW=0:FOR LV=1 TO 8 :IF MID*(RI*,LV,1) 
="W"THEN HW=1 

15130 NEXT:IF HW=1 THEN 15137 

15135 PRINT"NICHT MOEGLICH":GOTO 15030 

15137 IF E(X,Y)=1 OR E(X,Y)=2 OR E(X,Y)=4 
THEN 15135 

15138 IF X< >2 OR YOll THEN 15150 

15139 IF M5<2 THEN 15150 

15140 IF(C(X,Y)AND 128>=0 THEN 15145 
15142 PRINT"DU STEHST VOR DEM FEUER":FOR L 

V=1 TO 2000:NEXT:M5=l:GOTO 10200 
15145 PRINT"DU BIST IN DEN ABGRUND GEFALLE 
N!":GOTO 8000 

15150 X=X—1:RI*="":GOTO 10200 
15200 IF B*< >“N"THEN 15300 

15220 HW=0:FOR LV=1 TO 8 :IF MID*(RI*,LV,1) 
="N"THEN HW=1 

15230 NEXT:IF HW=1 THEN 15236 

15235 PRINT"NICHT MOEGLICH":GOTO 15030 

15236 IF E(X,Y)=1 OR E(X,Y)=2 OR E(X,Y)=4 
THEN 15235 

15237 IF X=1 AND Y=ll THEN PRINT"DU BIST I 
N EINEN ABGRUND GESTUERZT":GOTO 8000 

15240 Y=Y—1:RI*="":GOTO 10200 
15300 IF B*< >“S"THEN 15400 

15322 HW=0:FOR LV=1 TO 8 :IF MID*(RI*,LV,1) 
="5"THEN HW=1 

15330 NEXT:IF HW=1 THEN 15336 

15335 PRINT"NICHT MOEGLICH":GOTO 15030 

15336 IF E(X,Y)=1 OR E(X,Y)=2 OR E(X,Y>=4 
THEN 15335 

15337 IF X=1 AND Y=ll THEN PRINT"DU BIST I 
N EINEN ABGRUND GESTUERZT":GOTO 8000 

15340 Y=Y+1:RI*=“":GOTO 10200 

15400 IF LEFT*(B*,4)<>"NIMM"THEN 15500 

15401 IF LEN(B*)<5 THEN 15030 

15402 B*=RIGHT*(B*,LEN(B*)-5) 

15403 HW=0:FOR LV=0 TO 10 

15404 IF B*=A*(LV)THEN GD*=B*:HW=1 

15405 NEXT:IF HW=1 THEN 15415 

15410 PRINT"ICH SEHE DAS HIER NICHT":GOTO 
15030 

15415 GOSUB 10400:GOTO 10200 

15500 IF LEFT*(B*, 8 )<>"VERLIERE"THEN 15600 

15501 IF LEN(B*)<9 THEN 15030 

15502 B*=RIGHT*(B*,LEN(B*)-9) 

15503 HW=0:FOR LV=0 TO 10 

15504 IF B*=A*(LV)THEN GD*=B*:HW=1 

15505 NEXT:IF HW=1 THEN 15520 

15512 PRINT"ICH SEHE DAS HIER NICHT!":GOTO 
15030 

15520 GOSUB 10600:GOTO 10200 
15600 IF LEFT*(B*,6)O"0EFFNE"THEN 15700 
15610 IF RIGHT*(B*,4)="TUER"THEN 15620 
15615 PRINT"GEHT NICHT":GOTO 15030 
15620 IF X=4 AND Y=ll THEN PRINT"DIE TUER 
IST OFFEN! RICHTUNGEN:W-0":RI*="W-0" 
15630 IF X=4 AND Y=ll THEN TU=2:G0T0 15030 
15640 IF X=3 AND Y=ll THEN PRINT"DIE BRUEC 
KE IST DAZWISCHEN!":GOTO 15030 
15700 IF B*<>"LIST"THEN 15800 
15710 PRINT"DU TRAEGST:" 

15720 PRINT GS*(1):PRINT GS*(2):PRINT GS*( 
3) 

15730 GOTO 15030 

15800 IF B*< >"R"THEN 15900 

15810 IF X=5 AND Y=1 THEN 15850 

15820 IF X=5 AND Y=3 THEN 15850 

15830 IF X =6 AND Y=4 THEN 15870 

15840 IF X=3 AND Y =6 THEN 15870 

15845 PRINT"NICHT MOEGLICH":GOTO 15030 


< 11B> 
<004> 

< 113> 

<023> 

<030> 

<0B5> 

< 198> 
<075> 
<01B> 
<239> 

< 197> 

<040> 

< 198> 

< 177> 

<243> 

<072> 

<243> 

<127> 

< 173> 

<103> 

<076> 

<034> 

< 131 > 
<042> 
<021 > 

<087> 

<082> 

< 168> 
<140> 

<236> 

< 143> 

< 121 > 

< 188> 

< 182> 
< 011 > 
<073> 
<242> 

< 132> 
<044> 

< 141 > 
<217> 

< 118> 

< 171 > 
<223> 
<090> 
<236> 
<144> 
<241 > 
<058> 

<253> 

< 022 > 

< 151 > 

< 124> 
<114> 

<001 > 
<032> 

<077 > 

< 011 > 

< 101 > 

< 167> 
<049> 

< 134> 
<094> 

< 106> 
< 120 > 
<129> 
< 121 > 
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15850 PRINT"tCLRJDU BIST IN DIE KELLER DER 
ORKS GERATENI2SPACE>UND BIST ENTDEC 
KT WORDEN." 

15860 GOTO 8000 

15B70 HW=0:FOR LV=1 TO 10:IF MID*(RI*,LV,1 
)="R"THEN HW=1 

15880 NEXT:IF HW=1 THEN 15890 
15885 PRINT"NICHT MOEGLICH":GOTO 15030 
15890 IF X =6 THEN X=0:Y=6:BQTO 15897 
15895 X=0:Y=11 

15897 PRINT-DU BIST GEKLETTERT,PLOETZLICH 
IST DIEC3SPACE >LE1TER ZUSAMMENGEKRAC 
HT."; 

15898 PRINT"DU BIST UNSANFT<2SPACE>AUFGEK0 
MMEN.":FOR LV=1 TO 5000:NEXT:GOTO 10 
200 

15900 IF LEFT* (B*, 4) < > 11 SAGE"THEN 16000 
15902 IF LEN(B*)<5 THEN 15030 
15905 PRINT RIGHT*(B*,LEN(B*)—5) 

15910 IF X =6 AND Y=4 THEN 15940 
15920 IF X=3 AND Y =6 THEN 15940 
15930 PRINT"ES IST NICHTS GESCHEHEN.":GOTO 
15030 

15940 IF RIGHT*(B*, 6 )< >"FREUND"AND RIGHT*( 
B# ,7)0" FREUND' " THEN 15930 
15950 HW=0:FOR LV=1 TO 3:IF GS* <LV)="SCHLU 
ESSEL"THEN HW=1 
15960 NEXT:IF HW=1 THEN 15980 
15970 PRINT"ICH KANN EIN SCHLOSS ERKENNEN! 
":GOTO 15030 

15980 PRINT"DIE PLATTE LOEST SICH AUF!" 
15985 FOR LW=1 TO 1500:NEXT 
15990 D(X,Y)=D(X,Y)OR 32:G0T0 10200 
16000 IF LEFT* (B*,6)O"BRINGE"0R RIGHT* (B* 
,2)< >"UM"THEN 16200 

16005 IF X=-l THEN PRINT"HIER IST NOCH FRI 
EDENSZONE":GOTO 15030 
16007 IF MID*(B*, 8 ,4)="ORKS"AND EtX,Y)=0 T 
HEN 15030 

16110 IF MID*(B*,B,4)="ORKS"THEN PRINT"SIE 
SIND TOT!":M2=M2+1:E(X,Y> =0:GOTO 10 
200 

16120 IF MID*(B*,8,7)="DANGALF"THEN PRINT" 
DANGALF HAT DICH ERSCHLAGEN":GOTO 80 
00 

16160 IF MID*(B*, 8 , 6 )<>"RALBOG"OR E(X,Y)<> 
16 THEN 16180 

16170 PRINT"DER RALBOG HAT SICH ERST HALB 
TOTGELACHT DANN HAT ER DICH MIT" 
16175 PRINT"EINEM PEITSCHENHIEB IN DEN ABG 
RUND -C 6 SPACE >BEFOERDERT. ": GOTO 8000 
16180 IF MID*(B*,8,5)="DOFRO"OR MID*(B*, 8 , 
4)="DICH"THEN PRINT"SELBSTMORD":GOTO 
8000 

16197 PRINT"WAS SOLL ICH TOETEN?":GOTO 150 
30 

16200 IF LEFT* (B*,4)0"HEBE"THEN 16300 

16201 IF LEN CB*)<5 THEN 15030 

16202 B*=RIGHT*(B*,LEN C B*)—5) 

16220 HW=0:FOR LV=1 TO 3:IF GS*(LV>=B*THEN 
HW=1 

16230 NEXT:IF HW=1 THEN 16240 
16235 PRINT"ICH TRAGE DAS NICHT!":GOTO 150 
30 

16240 IF B*="PLATTE"THEN PRINT"ZUM HEBEN I 
ST SIE ZU SCHWER!":GOTO 15030 
16250 IF B*="LATERNE"THEN M1=1:PRINT"DAS L 
ATERNENLICHT WIRD HELLER":GOTO 15030 
16260 PRINT"OK.":GOTO 15030 
16300 IF LEFT*(B*, 8 )< >"ENTLEERE"THEN 16400 
16310 IF RIGHT*(B*,5)="EIMER"QR RIGHT*(B*, 
11)="WASSEREIMER"THEN 16321 

16320 PRINT"WIE SOLL DAS GEHEN?":GOTO 1503 
0 

16321 HW=0:FOR LV=1 TO 3:IF GS*(LV)="EIMER 
"THEN HW=1 

16322 NEXT:IF HW=1 THEN 16325 

16323 GOTO 16320 

16325 IF M4=l THEN PR INT "ER IST SCHON LEER 
!":GOTO 15030 

16330 INPUT"CBLACK,RVOFFJWOHIN";B* 

16340 IF B*="RALBOG"OR B*="UEBER RALBOG"TH 
EN M4=l:GOTO 16380 

16345 IF X<>3 OR YOll THEN PR INT "DAS HAT 
NICHTS VERAENDERT.":M4=1:G0T0 15030 
16350 FRINT"DER RALBOG HAT DICH ANGEGRIFFE 
N.":GOTO 8000 


<018> 

<130> 

<060> 
<1B9> 
< 162> 
<072> 
<054> 


<205> 


< 151 > 
<042> 
<233> 
<254> 

< 199> 
<208> 

<026> 

<041 > 

<180> 

<013> 

< 167> 


16380 IF X<>3 OR YOll THEN PR INT "DU SPASS 
VOGEL!":GOTO 15030 

16390 PRINT"DER RALBOG TAUMELT UND FAELLT 
IN DEN ABGRUND!":ECX,Y)=0 

16391 FOR LV=1 TO 2500:NEXT:GOTO 10200 

16400 IF B*<>"HILF"THEN 16500 

16405 IF X<0 THEN PRINT"DU BIST AUF DEM RI 
CHTIGEN WEG. ".-GOTO 15030 

16410 IF X=0 AND Y=0 THEN PRINT"LIES DOCH 
MAL":GOTO 15030 

16415 IF X=0 AND Y=ll THEN PRINT"LIES DOCH 
MAL":GOTO 15030 

16420 IF X=5 AND Y=1 THEN PRINT"SCHAU MAL 
UNTEN NACH.":GOTO 15030 

16430 IF X=5 AND Y=3 THEN PR INT "SCHAU MAL 
UNTEN NACH.":GOTO 15030 

16440 IF X =6 AND Y=4 THEN PRINT"VIELLEICHT 
MUSST DU EIN ZAUBERWORT SAGEN":GOTO 
15030 

16450 IF X=2 AND Y =6 THEN PRINT"SPINNEN SI 
ND NUETZLICHE TIERE!":GOTO 15030 

16460 IF X=3 AND Y =6 THEN PRINT"VIELLEICHT 
MUSST DU EIN ZAUBERWORT SAGEN":GOTO 
15030 

16470 IF X=1 AND Y=ll THEN PRINT"DER WEG N 
ACH NORDEN SCHEINT DER RICHTIGE":GOT 
0 15030 

16480 IF X=3 AND Y=ll THEN PRINT"FEUERWESE 
N HABEN AUCH SCHWACHSTELLEN.”:GOTO 1 
5030 


<206> 

< 220 > 

16481 

IF 

98 

X=0 

AND 

II 

>- 

AND 

E(X, Y) >0 

THEN 

164 

<021 > 

16482 

IF 

98 

X=2 

AND 

Y=2 

AND 

E(X,Y )>0 

THEN 

164 

< 001 > 

16483 

IF 

98 

X=2 

AND 

Y=3 

AND 

E(X,Y) >0 

THEN 

164 

<064> 

16484 

TF 

98 

-0 

II 

X 

AND 

Y=2 

AND 

E(X,Y) >0 

THEN 

164 

< 110 > 

16435 

IF 

98 

X=2 

AND 

Y=7 

AND 

E (X, Y)>0 

THEN 

164 


16486 

IF 

X=2 

AND 

Y=10 AND 

E(X,Y) >0 

THEN 

16 


<230>, , -98 


< 185> 
<005> 

< 183> 

< 128> 

<197> 


16495 GOTO 16499 

16498 PRINT"DIE ORKS HABEN DICH UMZINGELT 
UNDSPERREN DEN AUSGANG.GOTO 15030 

16499 PRINT"DU MACHST DEINE SACHE GUT.":GO 
TO 15030 

16500 IF B*<>"SPEICHERE"THEN 16600 
16510 INPUT"UNTER WELCHEM NAMEN";C* 

16515 PRINT"SPULE DAS BAND RICHTIG UND DRU 

ECKE TASTE":GET A*:IF A*=“"THEN 1651 
5 

16520 OPEN 1,1,1,C* 

16530 FOR L1=0 TO 6 :FOR LW=0 TO 12:PRINT#1 


<036> 

<078> 

<02l> 

< 167> 

<234> 

<018> 

<249> 

< 107> 

<029> 

<036> 

<247> 

< 104> 

<053> 

< 159> 

< 114> 
<135> 

< 126> 
<026> 

< 183> 

<219> 


<086> 


,C(LI,LW):NEXT : NEXT 

16540 FOR L1=0 TO 6:FOR LW=0 TO 12:PRINT#1 
,E(L1,LW):NEXT:NEXT 

16550 FOR Ll=l TO 3 

16551 IF GS*<L1)=""THEN PRINTttl,"A":GOTO 1 
6555 

16552 PRINTttl,GS*(LI> 

16555 NEXT 

16560 PRINTttl,M1:PRINTttl,M2:PRINTttl,M3:PRI 
NT#1,M4:PRINTttl,M5:PRINTttl,M6 

16561 PRINTttl,TU:PRINTttl,X:PRINTttl,Y:PRINT 
#1,D(6,4):PRINTttl,D(0,6) 

16580 PRINTttl,D(3,6):PRINT#1,D(0,11):CLOSE 
1:GOTO 10200 

16600 IF B*<>"LADE"THEN 16700 
16610 INPUT"UNTER WELCHEM NAMEN";C* 

16615 PRINT"SPULE DAS BAND RICHTIG UND DRU 
ECKE TASTE":BET A*:IF A*=""THEN 1661 
5 

16620 OPEN 1,1,0,C* 

16630 FOR L1=0 TO 6:FOR LW=0 TO 12:INPUT#1 
, C (LI ,LW):NEXT:NEXT 1 

16640 FOR L1=0 TO 6:F0R LW=0 TO 12:INPUTttl 
,E(LI,LW):NEXT:NEXT 

16650 FOR Ll=l TO 3: INPUTttl,GS* (LI) 

16651 IF GS*(LI)="A"THEN GS*(L1)="" 

16655 NEXT 

16660 INPUTttl,Ml:INPUTttl,M2:INPUTttl,M3:INP 
UTttl,M4:INPUTtt1,M5:INPUTttl,M6 
16662 INPUTttl,TU:INPUTttl,X:INPUTttl,Y:INPUT 
ttl,D(6,4):INPUTttl,D(0,6) 

16680 INPUT#1,D(3,6):INPUT#1,D(0,11);CLOSE 
1 



< 133> 

< 145> 
<042> 
<175> 

< 134> 

< 110 > 

< 165> 
<121 > 

< 133> 

<238> 

<087> 

<001 > 

< 142> 

< 130> 

<007> 

< 011 > 

<013> 

<017> 

<019> 

<062> 

<069> 

< 162> 

< 140> 

< 137> 
<043> 

< 148> 
<229> 

<090> 

< 102 > 
<15B> 

< 222 > 

< 105> 
<109> 

<211 > 

<078> 

< 102 > 

< 108> 

< 143> 

<249> 
<072 > 

< 170> 

< 183> 
<170> 

< 195> 

< 210 > 

<192> 

<0B0> 

<237> 
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16690 

16700 

16710 

16720 

16725 

16730 

16735 

16740 

16745 

16750 

16760 

16765 

16770 

16771 

16772 

16773 
16775 
16780 
16800 
16810 

16820 

16830 

16840 

16850 

16900 

16910 

16920 

16930 

16940 

16945 

16947 

16950 

16952 

16954 

16956 

16960 

16970 

16975 

16977 

16980 

17000 

20000 

20010 

20015 

20020 

20100 

20110 

20115 

20120 

20200 

20220 

20225 

20230 

20235 

20240 

22300 


22320 

22330 

22400 

22420 

22425 

22430 


22435 

22437 

22440 

22450 

22460 


GOTO 10200 

IF LEFT*CB*,4X>"WIRF"THEN 16800 

IF LEN CB*)<5 THEN 15030 

B*=RIGHT*(B*,LEN(B*)-5):HV=0 

FÜR LV=1 TO 3sIF GS*CLV)=B*THEN HV=1 

NEXTsIF HV=1 THEN 16740 

PRINT”ICH SEHE DAS NICHT":GOTO 15030 

IF B*="SEIL"THEN 16750 

GD*=B*s GOSUB 10600:GOTO 10200 

IF X=0 AND Y=6 THEN 16770 

IF X=0 AND Y=11 THEN 16770 

GD*=B*:GOSUB 10600:GOTO 10200 

PRINT"DAS SEIL HAT SICH OBEN VERHAKT 

!":DCX,Y)=D(X,Y)OR 64 

IF GS*(1)="SEIL"THEN GS*(1)="" 

IF GS*(2)="SEIL"THEN GS*(2)="" 

IF GS*(3)="SEIL"THEN GS*(3)="" 

FOR LV=1 TO 2500:NEXT 
GOTO 10200 
IF B*<>"H"THEN 16900 

HV=0:FOR LV=1 TO 10:IF MID*(RI*,LV,1 


<239> 

< 109> 
< 020 > 
<105> 
<041 > 
< 012 > 

< 12B> 
<099> 
<229> 
<016> 
<070> 
<249> 


22470 

22480 

22490 


22500 

22510 

22520 

23000 


<237> 

<143> 

< 146> 
<149> 
<245> 
<073> 

< 105> 


23020 

23030 

23040 

23050 

23060 


)="H"THEN HV=1 <224> 

NEXTsIF HV=1 THEN 16840 <103> 

PRINT"NICHT MOEGLICH!":GOTO 15030 <119> 

IF X=0 AND Y=11 THEN X=3:Y=6:G0T0 10 
200 <255> 

IF X=0 AND Y=6 THEN X=6:Y=4:G0T0 102 
00 < 222 > 

IF LEFT*CB*,4)<>"LIES"THEN 17000 <036> 

IF RIGHT* CB*,4)="BUCH"THEN 16960 <128> 

IF RIGHT*C B*,12)< >"SCHRIFTROLLE"THEN 
PRINT"NICHT MOEGLICH!":GOTO 15030 <076> 

HW=0:FOR LV=1 TO 3:IF GS*CLV)="SCHRI 
FTROLLE"THEN HW=1 <034> 

NEXT <240> 

IF HW=1 THEN 16950 <044> 

PRINT“ICH TRAGE DAS NICHT!":GOTO 150 
30 <196 > 

HW=0:FOR LV=1 TO 3:IF GS*CLV)="FACKE 


23070 

23080 

23090 

23100 

23110 

23120 

23130 

23140 

23150 


L"QR GS* C LV)="LATERNE"THEN HW=1 
NEXT 

IF HW=1 THEN 23000 
PRINT"ES IST ZU DUNKEL,ICH KANN NIC! 
TS SEHEN!":GOTO 15030 
HW=0:FOR LV=1 TO 3:IF GS*CLV)="BUCH” 
THEN HW=1 
NEXT 

IF HW=1 THEN 16980 
GOTO 16947 
GOTO 23200 

PRINT"WIE BITTE???":GOTO 15030 
IF CC CX,Y)AND 1024)=1024 THEN 10405 
IF D C0,6)<64 THEN GOTO 15030 
IF GS* CI)>""AND GS* C2)>""AND GS*C3)> 
""THEN 15030 

D C0,6)=D C0,6)—64:M6=l:GOTO 10470 
IF CC C X,Y)AND 1024)=1024 THEN 10405 
IF DC0,11X64 THEN 15030 
IF GS*CI)>""AND GS* C2)>""AND GS*C3)> 
""THEN 15030 

D(0,11)=D(0,11)—64:M6=1:GOTO 10470 

E CX,Y)=0 

M=INT(RND CI)*4) 

N=INT(RND(l>*4)+5 
IF E CM,N)>0 THEN 20220 
E(M,N)=32 
RETURN 

PRINT"{HOME,18D0WN >"SPC C17)"<GREY 2 > 
ZI4SPACE J5IDOWN,7LEFT JZC6SPACE {DOW 
N,8LEFT >"; 

PRINT"{BLACK,RVSON,8SPACE,2D0WN >“ 
RETURN 

POKE 2040,11:POKE 2041,13:POKE 2042, 
14:POKE 2043,14 

FOR L1=0 TO 62:POKE 704+L1,A(0,L1+1) 
:POKE 832+L1,A(23, L1 +1) 

POKE 896+L1,A(11,L1+1):NEXT 
POKE VI+39,2:POKE VI+40,2:POKE VI,16 
0:POKE VI+2,160:POKE VI+1,121:POKE V 
1+3,163 

POKE VI+41,7:POKE VI+42,7:PDKE VI+4, 
153:POKE VI+6,193:POKE VI+5,179 
POKE VI+7,179 

POKE VI+23,CPEEKCVI+23)AND 243)0R 3: 
POKE VI+29,CPEEK(V1+29)AND 243)0R 3 
POKE VI+21,PEEK CVI+21)OR 15 
PRINT" {HOME,3D0WN,5RIGHT,BLACK>GQPPO' 


< 173> 
<252> 


23160 
H <az7 h 23: ,3 
23166 
23170 


< 150> 


<209> 
<014> 
<077> 
<039> 
< 022 > 
<093> 
<043> 
< 112 > 

< 16B> 
<246> 

< 175> 

< 119> 

< 012 > 

< 17B> 

< 139> 

< 108> 
<082> 
< 187> 
<206> 
<237 > 


<072> 

<040> 

<031 > 

<063> 

<024> 
< 181 > 


<219> 


<205> 

<224> 


< 161 > 
<077 > 


23190 

23195 

23200 

23220 

23230 

23240 

23250 

23260 

23270 

23280 

23290 

23300 

23310 

23320 

23330 

23340 

24000 

24020 

24030 

24040 

24050 

24060 

24070 


BTT {RVSON > WyYiT<2SP ACE JTtYyVU {RVQFF 
Jrrowpee" <251 > 

PRINT"{RVSON,4RIGHT>£<30SPACE>5" <008> 

FOR LV=1 TO 4:PRINT"{RVSON,4RIGHT,32 
SPACEJ":NEXT <094> 

FOR LV=1 TO 4:PRINT SPC C3+LV)"{RVOFF 
>5";:FOR Ll=l TO 32-2*LV:PRINT"{RVSO 

N, SPACEJ“;:NEXT <143> 

PRINT"{RVOFFJ£":NEXT <015> 

FOR LV=1 TO 7:PRINT"{RVSON,BLACK, 8 RI 

GHT,24SPACE>":NE X T:PRINT"{3D0WN >" < 205 > 

RETURN <221> 

POKE 53280,0:POKE 53281,4:POKE VI+21 
>0 <051> 

PRINT"(CLR,WHITEJ"CHR*(14) <055> 

PRINT"HEIN EREUND JHRAIN," <139> 

PRINT"ICH SCHREIBE 2IR VON flARIO, DE 
R ZWERGEN-"; <171> 

PRINT"MINE, DIE VON 2ALIN, DEM ZWERG 
ENFUEHRER,"; <093> 

PRINT"REGIERT WIRD. 2IESE filNE IST V 
ON VIELEN" <250> 

PRINT"UNGEHEUERN BEVOELKERT, UND WIR 
HABEN ES" {185> 

PRINT"SCHWER, UNS GEGEN SIE ZUR HEHR 
ZU" <250> 

FRINT"SETZEN. ZINE £1ESENSPINNE LAUE 
RT UNS" <231> 

PRINT"IMMER WIEDER AUF, HEIMTUECKISC 
HE SRKS" <127> 

PR INT "STELLEN UNS NACH, ABER DAS jjCH 
LIMMSTE" <059> 

PRINT"IST EIN ZEUERWESEN, GEGEN DAS 
WIR ALLE" <070> 

PRINT"MACHTLOS SIND. ZS HEISST, DASS 
DIE 2RIN-"; <123> 

PRINT"NE SEHR LICHTEMPFINDLICH IST, 

ABER" <045> 

PRINT"UNSERE HERKOEMMLICHEN ZACKELN 
SCHADEN" <236> 

PRINT"IHR NICHT. 2A DIE ZJJFT DORT SE 
HR STICKIG"; <124: 

PRINT"IST,BLEIBT DAS ZICHT UNSERER £ 
ACKELN" <228> 

PRINT"DORT OHNEHIN NUR DANN EINIGERM 
ASSEN HELLWENN WIR SIE HOCHHEBEN." <185: 
PRINT"ZCH HOERE JEMAND KOMMEN-NEIN, 

DAS WERDENDOCH NICHT ETWA" <219> 

GET A*:IF A*=""THEN 23190 <1S8> 

PRINT CHR*CI42):GOTO 10200 <243> 

POKE 53281,l:POKE 53280,9:P0KE VI+21 

,0 < 002 > 

PRINT"{CLR,BLUE >"CHR*(14) < 026> 

PRINT" TJTG-E-B.U.CJi 212. Z-M-E.R G E_N HERRSCHERS 
{SHIFT-SPACE > BR LIM ," <225> 

PRINT" {9SPACEJ .HZ.R-R. V.O.H HÖR IO " <155: 

PRINT"MIR KOENNEN NICHT HINAUS.HIR K 
OENNEN" <117> 

PRINT"NICHT HINAUS.SIE HABEN DIE 2RU 
ECKE UND" <120> 

PRINT"DIE ZWEITE HALLE GENOMMEN.fRAR 
UND 2DNI" <117> 

PRINT"UND HALI FIELEN DORT.2ER SEE R 
EICHT BIS" <033> 

PRINT"ZUR HAND AM HESTTOR.2ER HAECHT 
ER IM" <020> 

PRINT"HASSER HAT 2IN GEPACKT.MIR KOE 
NNEN NICHT"; <050> 

PRINT"HINAUS.2AS ZNDE KOMMT.IROMMELN 
.IROMMELN" <240> 

PRINT" IN DER HEFE. " <221 > 

PRINT"{3SPACEJ2 IE KO M ME N." <176> 

GOTO 23190 <015> 

POKE VI+21,0:POKE 53281,14:POKE 5328 

O , 0 < 080 > 

PRINT"{CLR,WHITEJDU BIST AUS DER MIN 

E ENTKOMMEN!" <045> 

PRINT"DU HAST DAS ZIEL ERREICHT UND 
EINE" <075> 

PRINT"ETAPPE DEINES WEGES ZURUECKGEL 
EGT. WIE" < 008 > 

PRINT"ES WEITERGEHT,KANNST DU IN DEM 
BUCH" <223> 

PRINT"{7SPACE>‘DER HERR DER RINGE - " <224> 

PRINT"WEITERLESEN, WENN ES DIR GEFAL 
LEN HAT." <172> 


Listing »Mario« (Schluß) 
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Listings 


Zeittunnel — 
Flucht in die 
Gegenwart 

Durch einen Zeittunnel in die Zukunft. 
Finden Sie den Weg zurück. 

Das Spiel beginnt im heimischen Wohnzimmer. Die Kom¬ 
mandos müssen ausgeschrieben und durch eine Leerstelle 
getrennt werden. Zum Beispiel »NEHME BILD«. Die Syntax ist: 
Imperativ, Leerstelle, Objekt. Für die Richtungen werden An¬ 
fangsbuchstaben benutzt. Die Eingabe wird mit »Return« ab¬ 
geschlossen. Mit der gleichen Taste gelangt man vom Grafik- in 
den Textmodus. Vom Text- in den Grafikmodus kommt man mit 
dem Befehl »BILD«. (Jens Schürbs/Arndt Meiswinkel/rg) 


6SPACEJ" 

90 Bl*(9)="CRVSON,GREY 2,6SPACE>H C3SPACE JU 
*Fr*L<2SPACE, BRDWN>HS7W7£77W7£H CGREY 
2 J TT C6SPACE >" 

100 Bl*(10)="CRVSON,GREY 2.6SPACE JTTC3SPACE 
J^CGREY CGREY 2J-C2SPACE, BROWNJH 

RC4SPACE JTTC5SPACE JTTTTCGREY 2 JTTC6SPACE > " 
110 Bl*<11>="CRVS0N,GREY 2.6SPACEJRC3SPACE 
J^CGREY 3}üiüü.CGREY 2 J-C2SPACE, BROWNJTT 
R C4SPACE JTTC5SPACE JTTTTCGREY 2 JRC6SPACE >" 
120 Bl*(12)="CRVSON,GREY 2,6SPACE JTTC3SPACE 
J^CGREY 31ilü<GREY 2J-C2SPACE, BROWN>R 
RC4SPACE>RC5SPACE JTTTTCGREY 2>RC6SPACE}“ 
130 Bl*(13)="CRVSON,GREY 2.6SPACEJRC3SPACE 
J 3 CGREY 3J .U.K-U-K. CGREY 2J—C2SPACE,BROWN}R 
R<3SPACE>.R .C3SPACEJRR(GREY 2JTTC6SPAC 
E>" 


140 Bl*(14)="CRVSON,GREY 2.6SPACEJRC3SPACE 
)i*£*ü*(.C2SPACE, BROWN JHHC4SPACE JTTC5SPAC 
EJRRCGREY 2 JTTC6SPACE J" 

150 Bl*<15)="CRVSON,GREY 2.6SPACEJRC11SPAC 
E,BROWN JRRC4SPACE JRC5SPACE JRRCGREY 2 JR 
C6SPACEJ" 

160 Bl*(16)="CRVSON,GREY 2.6SPACE JTTC11SPAC 
E, BROWN > Hi. pVppICpVpVpSRCGREY 2JRC6SPACE 
>" 


Programmdokumentation und Variablenliste 


5 - 2610 

Raum 1 bis 11 in Strings 

2611 — 2614 

Zufallszahlen ermitteln 

2620 

Sprung zum Titelbild 

2700 — 2760 

Routine für Bildtext 

2770 — 2910 

Routine: Worteingabe 

2920 — 2990 

Routine: Wortausgabe 

3000 

Hauptprogramm 

10000— 10260 

Titelbild 

Wichtige POKEs 


3050 — 3080 

POKE für Cursor setzen 

POKE 211,x:POKE214,y:SYS 58640 
setzt Cursor an Postition x,y 

3025 

Ausschalten des Bildschirms 

POKE 53265,PEEK(53265) AND 239 

3085 

Einschalten des Bildschirms 

POKE 53265,PEEK(53265) OR 16 

Wichtige Variablen 

VAS 

Eingegebenes Wort 

VS 

Eingegebener Buchstabe 

ANS 

Antwort 

X,Y,X1,Y1 

Position des Bildtextes 

CX.CY 

Cursorposition in Textmodus 

B1$(1-27) bis B9S (1-27) 

Bilder 1-9 

BA$(1-27) bis BBS (1-27) 

Bilder 10,11 


CK 


Listing »Zeittunnel« 


1 REM *********************** 

2 REM * ADVENTURE * 

3 REM * BY JENS SCHUERKS/ * 

4 REM * ARNDT MEISWINKEL * 

5 REM *********************** 

6 PRINT"CCLRJ"sPOKE 53280,0:POKE 53281,0:D 
IM Bl*(27) 

7 REM ** RAUM 1 ** 

10 Bl*(l)="CUP,RVSON,GREY 2.3SPACEJHC31SPA 
CE J HC3SPACE > “ 

20 Bl*(2)="CRVSON,GREY 2,4SPACE>flC29SPACE> 
HC4SPACEJ“ 

30 Bl*(3)="CRVSON,GREY 2,5SPACEJfl£27SPACEJ 
HC5SPACEJ" 

40 Bl* (4)=" CRVSON,GREY 2, 6 SPACE JflYYYYYYYYY 
YVYYYYYYYVYYYYYY££ 6 SPACE J " 

50 Bl*(5)="CRVSON,GREY 2,6SPACE>RC25SPACEJ 
RC 6 SPACEJ“ 

60 Bl*( 6 )=“CRVSON,GREY 2,6SPACEJHC25SPACEJ 
TTC 6 SPACEJ“ 

70 Bl*(7)="CRVSON,GREY 2,6SPACEJT?£25SPACEJ 
TT C 6 SPACE > " 

80 Bl* ( 8 )=" CRVSON,GREY 2,6SPACE>TTC5SPACEJ'B 


<0B6> 

< 147> 
< 220 > 
<0BB> 
<090> 

<230> 

< 164> 

<239> 

< 105> 

< 116> 
<098> 
<077> 
<088> 
<099> 


2 


170 Bl* (17)=" CRVSON,GREY 2,6SPACE>£ >»»» ■ 
PWPCBROWN J.LTpWp'pp'pVpVp'BCGREY 2JSC6SP 
ACEJ" 

180 Bl*(18)="CRVSON,GREY 2,5SPACEJH£12SPAC 
EJTTC10SPACEJVT ÖC5SPACEJ" 

190 Bl*(19)="CRVSON,GREY 2,4SPACEJH C29SPAC 
EJHC4SPACEJ" 

200 Bl*(20)="CRVSON,GREY 2,3SPACEJHC31SPAC 
EJÜC3SPACEJ“ 

210 Bl*(21)="CRVSON,GREY 2,2SPACEJHC33SPAC 
EJÜC2SPACEJ" 

220 B1*(22)="CLIG.BLUE JWOHNZIMMER" 

230 Bl*(23)="CLIG.BLUEJSCHRANK / BILD" 

240 REM ** RAUM 2 ** 

2 T M B2*(23) 

D*.l (1) = " CHOME , 30SPAOE > " 

270 B2*(2 > ="C15SPACE,WHITE,RVSON >£*CRVOFF, 
11SPACE,YELLOW >.C10SPACE>" 

280 B2*(3)="CSPACE,YELLOW J.CBSPACEJ.C3SPAC 
E,WHITE,RVSONJ££2SPACE J¥CRVOFF,4SPACE, 
YELLOW>.C10SPACEJ“ 

290 B2*(4> ="C3SPACE,YELLOW>.C9SPACE,WHITE, 
RVSON>£C4SPACE>1FCRVOFF,11SPACE,YELLOW> 
SC3SPACEJ.C3SPACEJ" 

300 B2*(5)="C5SPACE,RED Jfi C6SPACE,RVSON,WHI 
TE>££6SPACE>¥£ ¥CRVOFF,16SPACE>“ 

310 B2*(6)="CI1SPACE,RVSON,WHITE>£C7SPACEJ 
ÜC3SPACE J¥CRVOFF,3SPACE,YELLOW J.C11SPA 
CEJ" 

320 B2*(7)="C2SPACE,YELLOW >.C2SPACE>.C4SPA 
CE,RVSON,WHITE JÄC7SPACEJHC5SPACE J¥CRVO 
FF,6SPACE,YELLOW>.C7SPACEJ“ 

330 B2*(8)="C3SPACE,RVSON,WHITE}£¥CRVOFF,4 
SPACE,RVSON >££7SPACE>HC7SPACE >¥£RVOFF, 
13SPACE >“ 

340 B2*(9>="C2SPACE,WHITE,RVS0NJ£C2SPACE>¥ 
CRVOFF,2SPACE,RVSONJ2ÜC7SPACE JÜC9SPACE > 
¥£RVQFF,12SPACE >" 

350 B2*(10)="CSPACE,RVSON,WHITE >£ C4SPACE >¥ 
& C7SPACE>M£11SPACE >¥CRVOFF,3SPACE,YELL 
OWJ.C4SPACEJ.C2SPACEJ“ 

360 B2* (11)=" CRVSON, WHITE JJLC6SPACE>fl£6SPAC 
E > HC13SPACE >¥ CRVOFF,9SPACE,RVSON >£" 

370 B2*(12)="CRVSON.WHITE,BSPACE JHC4SPACE > 
HCl5SPACE>¥CRV0FF,7SPACE,RVSON>£ " 

380 B2*(13)="CRVSON,WHITE,9SPACEJflC2SPACE> 
HC 17SPACE J ¥CRVOFF,5SPACE,RVSON >£C2SPAC 
EJ“ 

390 B2* ( 14) =" CRVSON,GREENJTT f T t ’ t ' T ' t ‘ t ' T ' i * t ' T^ * t ' t ' 
TT" 

400 B2* (15) =" CRVSON, GREEN JTTTtVt'i 

TTTTTTTTTTTTTCBROWN >£C7SPACE >¥CGREENJT 

410 B2*(16)="CRVSON,BROWN,39SPACE>“ 

420 B2*(17)="CRVSON,BROWN,39SPACEJ" 

430 B2*(18)="CRVSON,BROWN,39SPACEJ" 

440 B2*(19)="CRVSON,BROWN,39SPACE>" 

450 B2*(20)="CRVSON,GREEN JTTTTTTTTTTCBROWN 
>£C13SPACE>¥CGREEN JT 


<053> 

<098> 

<081 > 

< 118> 

< 103> 

<232> 

<255> 

< 117> 

<223> 

< 140> 

<037> 

<075> 

<077> 

<0BB> 

< 200 > 

<023> 

< 142> 
<206> 
<040> 

<029> 

<034> 

<20B> 
<231 > 

<023> 

<028> 

< 141 > 

< 152> 

<032> 

<049> 

<147> 

< 158> 

<150> 

<091 > 

< 136> 

< 147> 
<15B> 

< 169> 

< 183> 
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Listing »Zeittunnel« (Fortsetzung) 


460 B2$(21)="{RVSON,I 

15SPACE )¥ {GREEN > TT Y ' tT ' tT ' t ' t ' t ' tT ' t" ' <124> 

470 B2$(22)=" {LIG. BLUE>KRISTALL—PLANET 1 ' <011> 

4B0 B2*(23)="{LIG.BLUE)GEBIRGE / WEGKREUZU 

NG" <065> 

490 REM ** RAUM 3 ** <138> 

500 DIM B3*(23) <202> 

510 B3*(1> =" {UP,5SPACE,RVSQN,WHITE)£{2SPAC 
E)¥{RVOFF,18SPACE>.(4SPACE,RVS0N)£¥<RV 
OFF,5SPAGE >“ <044> 

520 B3*(2>=" .{2SPACE,RVSON,WHITE)£{4SPACE 
)¥{RV0FF,4SPACE).{7SPACE).{BSPACE,RVSO 
N)£{2SPACE)¥{RV0FF,2SPACE,RED)fi " <240> 

530 B3*(3)="{3SPACE,RVSON.WHITE)£{6SPACE>¥ 

{RVOFF,SPACE >. (2SPACE,RVSON )£¥{RVOFF,1 
1SPACE >. {SPACE,RVSON >£{4SPACE )¥{RVOFF, 

2SPACE >“ <012> 

540 B3*(4)="{2SPACE,RVSON,WHITE)£<8SPACE>¥ 

{RVOFF,2SPACE,RVSON)£{2SPACE)¥{RVOFF,2 
SPACE )fi{BSPACE,RVSON >£{6SPACE )¥{RVOFF, 
SPACE)." <1S6> 

550 B3*(5)="{SPACE,RVSON,WHITE)£{10SPACE)¥ 
£{4SPACE >*{RVOFF,4SPACEJ.{4SPACE,RVSON 
)£{8SPACE)¥{RV0FF,SPACE)" <0B0> 

560 B3$(6)="{RVSON,WHITE)£{ 11SPACE)Ü{6SPAC 

E)¥{RVOFF,7SPACE,RVSON)£{10SPACE)*" < 225> 

570 B3*(7)="{RVSON,WHITE,11SPACE>H{8SPACE) 

5{RVOFF,5SPACE,RVSON )£{12SPACE)" <100 > 

580 B3*(8)="{RVSON,WHITE,10SPACE)&{10SPACE 
)¥{RVOFF,SPACE).{SPACE,RVSON)£<13SPACE 
>" <157> 

590 B3*(9)="{RVSON.WHITE,9SPACE>M{12SPACE) 

¥{RVOFF,SPACE,RVSON)£{14SPACE)“ <122> 

600 B3*( 10)=" {RVSON,GREENTTTTTTTTTTTTTTtTT 
TT {BROWN )£{4SPACE )¥{GREEN ) TTTTTTtTtTTT 
TTT" <009> 

610 B3*(ll)=" {RVSON,GREENTTTTTTTTTTTTTTtTT 
T {BROWN )£{6SPACE )¥{GREEN )TTTTTTTTTTTTT 
T" 

B3T (12) = " {RVSON, GREEN) ’AYtTVt ' T ' t ' Tt ' T ' t ' t ' tY 



650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

805 

810 


B3* (14)=" {RVSON , GREEN )TTTTTtTTTTTTTT{B 
R0WN)£{2SPACE,RVOFF >£<6SPACE)¥{RVSON,2 

B3*(15)="{RVSON, 

OWN )£{2SPACE , RVOFF )£{WH I TE>MOYYYY£fl<BR 
OWN)¥{RVSON,BROWN,13SPACE)" 

WN)£{2SPACE,RVOFF)£{WHITE)HCRVSON,GREY 
2)£{6SPACE)¥<RVOFF.WHITE)^{BROWN)¥{RV 
SON,12SPACE)" 

N)£{2SPACE,RVOFF)£{SPACE,WHITE)H{RVSON 
,GREY 2,BSPACE,RVOFF.WHITE)^?{SPACE,BRO 
WN)T{RVSON,11SPACE)■ 

B3*(18)="{RVSON,GREEN)TTTTTTTTTT{BROWN 
)£{2SPACE,RVOFF)£{14SPACE)¥{BROWN,RVSO 
N,10SPACE)" 

B3*(19)="{RVSON,GREEN)TTtTTTTTT{BROWN) 
£{3SPACE,RVOFF)TTf 


r{BROWN, 


TTTTTTTTT 

RVSON,3SPACE)¥{GREEN)Tt7TTT" 

B3*(20)="{RVSON,GREEN)TTTTTTTT{BROWN)ä 
{4SPACE,RVOFF,16SPACE.BROWN,RVSON,4SPA 
CE )¥{GREEN)T tVtY" 

B3*(21> ="{RVSON,GREEN)TTTtTTT{BROWN)£{ 
26SPACE)¥{GREEN)TTTT" 

B3*(22)="{LIG.BLUE)KRISTALL-PLANET" 

B3*(23)="{LIG.BLUE)GEBIRGE / WEG / SCH 
ACHT" 

REM ** RAUM 4 ** 

DIM B4*(23) 

B4*(1> = "{UP,GREY 2,RVSON,4SPACE)fl{29SP 
ACE)H{4SPACE>” 

B4S(2)=“{GREY 2,RVSON,5SPACE)fl<22SPACE 
)?TTT M{5SPACE)" 

B4*(3>="{GREY 2,RVSON,6SPACE)fl{20SPACE 
»JOSRNIlttSPACE ) " 

B4*(4)="{GREY 2,RVSON, 

B4*(5)="{RVSON,GREY 2,7SPACE>R(SPACE,R 
V0FF.3SPACE).{5SPACE).{BSPACE,RVSON,SP 
ACE )g±nW{7SPACE ) " 

B4*( 6 )="{RVSON,GREY 2,7SPACE)R{SPACE,R 


<073> 

<24B> 

< 202 > 

< 170> 

< 128> 

<095> 

<235> 

< 119> 
<007> 

<239> 

< 134> 

< 198> 

<226> 

<025> 

<034> 

<225> 

< 100 > 


VOFF,14SPACE).{3SPACE,RVSON,SPACE)R*TO 
{7SPACE)" 

820 B4*(7)="{RVSON,GREY 2,7SPACE)R{SPACE,R 
VOFF,SPACE).{3SPACE).{9SPACE).{2SPACE, 
RVSON , SPACE )BSRV{7SPACE ) " 

830 B4*( 8 )="{RVSON,GREY 2,7SPACE)R{SPACE,R 
VOFF,1BSPACE,RVSON,SPACE)SiRR{7SPACE)" 

840 B4*(9)="{RVSON,GREY 2,SPACE)Rfl{4SPACE) 
TKSPACE,RVOFF,3SPACE.WHITE)S{ 6 SPACE).{ 
7SPACE,RVSON,GREY 2,SPACE)RiüR{7SPACE) 

M 

850 B4*(10)=“{RVSON,GREY 2,SPACE)W£R{3SPAC 
E) TT {SPACE,RVOFF,14SPACE).{3SPACE,RVSON 
, SPACE )S*TO{7SPACE ) " 

860 B4*<11>=“{RVSON,GREY 2,SPACE)RM{4SPACE 
)H{SPACE,RVOFF,13SPACE,RED)fi{GREY 2,4S 
PACE .RVSON, SPACE {7SPACE ) " 

870 B4»(12)="{RVSON,GREY 2,7SPACE)R{SPACE, 
RVOFF,2SPACE).{5SPACE).{9SPACE,RVSON,S 
PACE){7SPACE)" 

880 B4*(13)="{RVSON,BREY 2,7SPACE)R{SPACE, 
RVOFF,15SPACE).{2SPACE,RVSON,SPACE)ä±U 
R{7SPACE)" 

890 B4*(14)="{RVS0N,GREY 2,7SPACE»I Pffffff 


900 B4*(15)="{RVSON,GREY 2,6SPACE)M<9SPACE 
).{4SPACE).{10SPACE)ß{ 6 SPACE)" 

910 B4*(16)="{RVSON,GREY 2,5SPACE)H{9SPACE 
).{ 6 SPACE).{10SPACE) fl{5SPACE)" 

920 B4*(17)="{RVSON,GREY 2,4SPACE)H. 

.fl{4SPACE)“ 

930 B4*(18)="{RVSON,GREY 2,3SPACE)M{9SPACE 
).{10SPACE).{10SPACE)fl{3SPACE)" 

940 B4*(19)="{RVSON,GREY 2,2SPACE)Ü{9SPACE 
). {12SPACE).{10SPACE)fl{2SPACE)" 

950 B4S(20)="{RVSON,GREY 2,SPACE)«,. 

.fl " 

960 B4$(21)="{RVSON,GREY 2>«{9SPACE>.{16SP 
ACE).{10SPACE)fl" 

970 B4$(22)="{LIG.BLUE)HALLE" 

980 B4$(23)="{LIG.BLUE)FENSTER / KNOPF / L 
EITER" 

REM ** RAUM 5 ** 

1000 DIM B5*(23) 

1010 B5$(1)="{UP,GREY 2,RVSON,4SPACE>fl{29S 
PACE)«{4SPACE)" 

1020 B5*(2)=“{GREY 2,RVSON,5SPACE)fl{27SPAC 
E )J4{5SPACE ) " 

1030 B5*(3>="{GREY 2,RVS0N,6SPACE)fl{25SPAC 
E)M{ 6 SPACE)" 

1040 B5*(4)="{GREY 2,RVSON,7SPACE) flWYVWY 
YYYYYYYYYYYyVYYY£ {7SPACE ) " 

1050 B5$(5)="{GREY 2,RVSON,7SPACE)G{23SPAC 
E)H{7SPACE)" 

1060 B5*(6)="{GREY 2,RVS0N,7SPACE)S HYYYYY 
YVYYYH{10SPACE >H(7SPACE)“ 

1065 B5*(7> ="{GREY 2,RVS0N,7SPACE)^ H{10SP 
ACE)^{10SPACE)R{7SPACE)" 

1070 B5*(8)="{GREY 2,RVS0N,7SPACE)^ R{10SP 
ACE )' 6 '{ 10SPACE )R {3SP ACE ) ÜU {2SP ACE ) " 
1080 B5*(9)="{GREY 2,RVS0N,7SPACE)E H{10SP 
ACE)R{10SPACE)R{2SPACE)HZ^{2SPACE)" 
1090 B5*(10)="{GREY 2,RVS0N,7SPACE)^ H{10S 
PACE)5{10SPACE)H{3SPACE TAB 1 {2SPACE)" 
1100 B5*di )="{grey 2,rvson,7space)g Höyyy 

{3SPACE, RVOFF )£{3SPACE)¥{RVS0N 
,2SPACE)H{7SPACE)" 

1110 B5*(12)="{GREY 2,RVS0N,7SPACE)g H{RVO 

FF).{RVSON)^{3SPACE,RVOFF)TT 

TTT{RVSON,2SPACE)ff{7SPACE)" 

1120 B5*(13)="{GREY 2,RVSON,7SPACE)7T R{RVO 
FF,10SPACE,RVSON YS {3SPACE,RVOFF,SPACE 
)A7£{SPACE,RVSON,2SPACE)ff {7SPACE)" 
1130 B5* (14)=" {GREY 2 , RVSON, 7SPACE) L.pg{RVO 

FF).{RVSON)i,TTF {RVOFF, SPACE) 

i-TS {SPACE, RVSON >Tpß<7SPACE ) " 

1140 B5$(15)="{GREY 2,RVS0N,6SPACE)H{7SPAC 
E).{9SPACE,RVOFF,5SPACE,RVSON,3SPACE) 
fl{ 6 SPACE)" 

1150 B5*(16)="{GREY 2,RVSON,5SPACE)ü{7SPAC 
E).{12SPACE).{ 6 SPACE)fl{5SPACE)" 

1160 B5*(17)="{GREY 2,RVS0N,4SPACE)Ü. 

.fl{4SPACE)" 

1170 B5S(18)="{GREY 2,RVSON,3SPACE)H{7SPAC 
E).{16SPACE).{6SPACE)fi{3SPACE)“ 

1180 B5$(19)="{GREY 2,RVS0N,2SPACE)14{7SPAC 
E>.{1BSPACE).{ 6 SPACE)fl(2SPACE)" 


<060 > 

< 163> 
<036> 

<066> 

< 199> 

< 105> 

<211 > 

< 176> 

< 189> 
< 111 > 

< 122 > 
<095> 
<144> 

< 155> 

<139> 

<168> 

<01B> 

< 111 > 

< 130> 

< 194> 

< 222 > 

<088> 

< 100 > 

<228> 

<043> 

< 186 > 

< 136> 
< 001 > 
<206> 
<061 > 

< 106> 

<036> 

< 138> 

<206> 

<215> 

< 108> 
<081 > 

< 130> 

< 141 > 
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Listings 


Zeittunnel 


Listing »Zeittunnel« (Fortsetzung) 


1190 B5*(20)="{GREY 2,RVSON,SPACEJfl. 

.fl “ 

1200 B5*(21)="{GREY 2,RVS0N>flt7SPACE>.<22S 
PACE >.{6SPACEJfl" 

1210 B5*(22)="{L X G.BLUE > TRANSMITTER—RAUM" 
1220 B5*(23)="tLIG.BLUE>TRESOR / KNOPF" 
1230 REM ** RAUM 6 ** 

1240 DIM B6*<23) 

1250 B6i(1) = "{UP,GREY 2,RVS0N,3SPACEJfl{31S 
PACE Jfl {3SPACE >" 

1260 B6*(2)="{GREY 2,RVSON,SPACE,RVOFF}¥{R 
VSON,2SPACEJfl{29SPACEJfl{2SPACE,RVOFF } 
£{RVSON,SPACE J" 

1270 B6*(3)="{RVSON,GREY 2,SPACE,RVOFF,SPA 
CE>5f {RVSON,2SPACE >fl{27SPACE)fl<2SPACE, 
RVOFF }£{SPACE,RVSON,SPACE>" 

1280 B6*(4>="{RVSON,GREY 2,SPACE,RVOFF,2SP 
ACE JR{RVSON, 2SPACE J flYYYYVY Y Y WYWyYYY 
WYYYYYY£{2SPACE,RVOFF }£{2SPACE,RVSON 
,SPACEJ" 

1290 B6*(5)="{RVSON,GREY 2,SPACE,RVOFF,3SP 
ACE JR{RVSON,SPACE JR{25SPACE {SPACE,R 
VOFF}£{3SPACE,RVSON,SPACE >" 

1300 B6*(6)="{RVSON,GREY 2,SPACE,RVOFF,4SP 
ACE,RVSON,SPACE JR{25SPACE >R{SPACE,RVO 
FF,4SPACE,RVSON,SPACE >” 

1310 B6*(7)="{RVSON,GREY 2,SPACE,RVOFF,4SP 
ACE,RVSON,SPACE >H<25SPACE >R{SPACE,RVO 
FF,4SPACE,RVSON,SPACE >" 

1320 B6*(8)="{RVSON,GREY 2,SPACE,RVOFF,4SP 
ACE,RVSON,SPACEJRC25SPACEJTKSPACE,RVO 
FF , 4SPACE , RVSON , SPACE > " 

1330 B6*(9)="{RVSON,GREY 2,SPACE,RVOFF,4SP 
ACE,RVSON,SPACE >H{25SPACE J R{SPACE,RVO 
FF,4SPACE,RVSON,SPACE >" 

1340 B6*( 10) = '• {RVSON,GREY 2,SPACE,RVOFF,4S 
PACE,RVSON,SPACEJR < DEPOT{10SPACEJJA 
IL > R{SPACE,RVOFF,4SPACE,RVSON,SPACE 
>" 

1350 B6*(11)="{RVSON,GREY 2,SPACE,RVOFF,4S 
PACE,RVSON,SPACE >R{25SPACEJRCSPACE,RV 
OFF,4SPACE,RVSON,SPACE}" 

1360 B6$(12)="{RVSON,GREY 2,SPACE,RV0FF,4S 
PACE,RVSON,SPACE TH{25SPACE JR{SPACE,RV 
OFF,4SPACE,RVSON,SPACE J” 

1370 B6*(13)="{RVSON,GREY 2,SPACE,RVOFF,4S 
PACE,RVSON,SPACE JR{25SPACEJR{SPACE,RV 
OFF,4SPACE,RVSON,SPACE >" 

1380 B64(14)="{RVSON,GREY 2,SPACE,RVOFF,4S 
PACE,RVSON,SPACE }R{25SPACEJR{SPACE,RV 
OFF , 4SPACE , RVSON , SPACE > “ 

1390 B6*(15)="{RVSON,GREY 2,SPACE,RVOFF,4S 
PACE,RV SON,SPACEJl/ pp ppVpWp ' pVp ' p ' P> ' pVpV 
ppppp-pg {SPACE , RVOFF , 4SP ACE , RVSON , SPAC 
E>“ 

1400 B6S(16)="{RVSON,GREY 2,SPACE,RVOFF>B5 
5S£{7SPACEJ. {11SPACE}. {7SPACEJ Wgffljlj {R 
VSON,SPACEJ" 

1410 B6*(17)="{RVSON,GREY 2,SPACE,RVOFF>.. 

.. 

VSON,SPACEJ" 

1420 B6*(18)="{RVSON,GREY 2,SPACE,RVOFF,10 
SPACEJ.{15SPACEJ.{10SPACE,RVSON,SPACE 

1430 B6*<19)="{RVSON,GREY 2,SPACE,RVOFF,9S 
PACEJ.{17SPACEJ.{9SPACE,RVSON,SPACEJ" 
1440 B6*(20)="{RVSON,GREY 2,SPACE,RVOFFJ.. 

.. 

VSON,SPACEJ" 

1450 B6*<21)="{RVOFF,BREY 2J£{8SPACEJ.{21S 
PACEJ. {6SPACEJR" 

1460 B6*(22)="{LIG.BLUEJGANG" 

1470 B6*(23 > ="<LIG.BLUE}WEGWEISER" 

1480 REM »* RAUM 7 ** 

1490 DIM B7*<23) 

1500 FOR A=1 TO 21:B7*(A)=B6*(A>:NEXT 
1510 B7*(2)="{RVSON,GREY 2,3SPACEJ"+RIGHT* 
(B7*(2>,38) 

1520 B7*(3)="{GREY 2,RVSON,3SPACEJ"+RIGHT$ 
(B7*(3>,38) 

1530 B7*(4)="{RVSON,GREY 2,4SPACEJ"+RIGHT* 
(B7*(4>,37) 

1540 B7*(5)="{RVSON,GREY 2,5SPACEJ"+RIGHTS 
(B7*(5),36) 

1550 FOR A=6 TO 14 STEP 2:B7#(A)="{RVSON,G 


< 125> 

< 154> 
<093> 
<053> 

< 116> 
< 180> 

<208> 


<026> 

<037> 

< 020 > 

<255> 

< 130> 

< 141 > 

<152> 

<163> 

<235> 

<224> 

<235> 

<246> 

<001 > 

<075> 

<025> 

< 198> 

< 135> 

< 146> 

< 222 > 

<003> 

< 183> 
<087> 

< 112 > 

< 176> 

< 146> 

<038> 
<050> 
<061 > 
<073> 


1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 


REY 2,6SPACE}R{SPACE,YELLOW,RVOFF}±±± 
±±±±±±±±±<GREY 2,RVS0NJ"+RIGHT*(B7*(A 
>,21):NEXT 

FOR A=7 TO 15 STEP 2:B7*(A)="{RVSON,G 

REY 2,6SPACE JH{SPACE,YELLOW,RVOFFJ- 

—{BREY 2,RVS0NJ"+RIGHT*(B7*(A 
),21):NEXT 

B7$(16)=”{RVSON,GREY 2,5SPACE,RVOFFJ" 
+RIGHT#(B7*(16),35) 

B7*(17)="{RVSON,GREY 2,4SPACE,RVOFF}£ 
"+RIGHT*<B7*(17),35) 

B7*(18)="{RVSON,GREY 2,3SPACE,RVOFF}£ 
"+RIGHT*(B7*<18>,36) 

B7*(19) = "{RVSON,GREY 2,2SPACE,RVOFF Ji 
"+RIGHT*(B7*(19),37) 

B7*(20) = "{RVSON,GREY 2,SPACE,RVOFF J £" 
+RIGHT* <B7$(20),38) 

B7$(22)="{LIG.BLUE JGANG-ENDE" 

B7ä> (23) = " {LIG. BLUEJLASER-GITTER" 

REM *# RAUM 8 ** 

DIM B8S(23) 

FOR A=1 TO 21:B8*(A)=B6*(A):NEXT 
BB*(2)=LEFT»(B8*(2),40)+"{RVSON,GREY 
2,3SPACE}" 

B8*(3)=LEFT*(BB*(3),40)+"{RVSON,GREY 
2,3SPACE J" 

B8*(4)=LEFT*(B8*(4),39)+"{RVSON,GREY 
2,4SPACEJ" 

B8*(5)=LEFTC(B8*(5),38)+"{RVSON,GREY 
2,5SPACE J" 

B8*(6)=LEFT*(B8*(6 >,23)+"{RVSON,GREY 

2 jflyv yvyYyyyye w{6spacej" 

BB*(7)=LEFT*(B8*(7),23)+"{RVSON,GREY 
2JH{10SPACEJJJ W<6SPACEJ" 

B8*(8)=LEFT*(B8*(8),23 > +"{RVSON,GREY 
2 JHC3SPACE,YELLOW,RVOFF J±±±±±±{RVSON, 

GREY 2,SPACEJH R{6SPACE}" 

B8f(9)=LEFT*(B8i(9),23)+"{RVSON,GREY 
2 JH{3SPACE,YELLOW,RVOFF >+±++±±{RVSON, 

GREY 2,SPACEJR R{6SPACEJ" 
B8*(10)=LEFT$(B8*(10),23)+"{RVSON,GRE 

Y 2}WOSPACE . YELLOW . RVOFF J ++++++ tRUPn 
N,GREY 2,SPACEJW TJ{6SPACEJ" 

B8*(11)=LEFT*(BB4(11),23)+"{RVSON,GRE 

Y 2 JTf{3SPACE,YELLOW,RVOFF J±±±±±±{RVSD 
N,GREY 2,SPACEJW R{6SPACEJ" 

B8J(12)=LEFT* < B8*(12),23)+"{RVSON,GRE 

Y 2JTf{3SPACE,YELLOW,RVOFF}±±±±±±{RVSO 
N,GREY 2,SPACEJR RC6SPACEJ" 

B8*(13)=LEFT*(B8*(13),23)+"{RVOFF,GRE 

Y 2J.{RVSON,SPACEJR{6SPACE 

>" 

B8*(14)=LEFT* <BB*(14),23)+"{RVOFF,GRE 

Y 2,4SPACEJ.{7SPACE,RVSON,SPACEJR{6SP 
ACE J " 

BB*(15)=LEFT* <B8*(15),23 > +"{RVOFF,GRE 

Y 2J.{RVSON,SPACEJR{6SPACE 

}" 

BB*(16)=LEFT»(B8*(16),37)+"{GREY 2,RV 
SON,5SPACE J" 

BB*(17)=LEFT*(B8*(17),37>+"{GREY 2JSf< 

RVSON,4SPACE J“ 

B8*(18)=LEFT*(B8*(1B),38)+"{GREY 2J»{ 

RVSON,3SPACE}" 

BB*(19)=LEFT*(BB*(19),39>+"{GREY 2JS{ 

RVSON,2SPACEJ" 

BB*(20)=LEFT*(B8*(20),40)+"{GREY 2J¥{ 

RVSON,SPACEJ" 

REM ** RAUM 9 ** 

DIM B9*(23> 

B9*(1> ="{GREY 2,RVSON,3SPACEJfl{31SPAC 
EJH{3SPACEJ" 

B9* < 2) = "{GREY 2,RVSON,4SPACEJfl{29SPAC 
E}fl{4SPACE}" 

B9*(3)="{GREY 2,RVSON,5SPACEJfl{27SPAC 
E Jfl{5SPACE J" 

B9*(4)="{GREY 2,RVSON,6SPACEJfl VYYVYYY 
WYVYVYYYYYYYYVYYY£{6SPACE J " 

B9*(5>=" {GREY 2,RVSON,6SPACEJG'{25SPAC 
E JW {6SPACE J " <162> 

B9$(6)="{GREY 2,RVSON,6SPACEJg<25SPAC 
E JR {6SPACE}" <173> 

B9*(7)=“{GREY 2,RVSON,6SPACEJg{7SPACE 
. RVOFF .YELLOW J .+.+-+-+-++.++.+++ {RRFY 2,RVS0 
N,7SPACE JR{6SPACE J" <251> 

B9*(8)="{GREY 2,RVSON,6SPACEJRC7SPACE 


< 187> 


<223> 

<092> 

<017> 

<030> 

<043> 


<038> 
< 162> 

< 1B6> 
<01 B> 
<082> 
<052> 

< 193> 
<205> 
<225> 
<236> 
<097> 
<006> 


< 014 > 


<026> 


< 116> 


< 128> 


<140> 


<248> 


< 010 > 


<017> 

<190> 

< 169> 

< 1B2> 

< 195> 

< 181 > 
<240> 
<048 > 

< 197> 

<208> 

<219> 

<201 > 


,RVOFF,YELLOW}; 


;{GREY 2.RVSO 
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Zeittunnel 




<028> 

2290 

<017> 

2300 

<089> 

2310 

<078> 

2320 

<111> 

2330 

<100> 

2340 

< 133> 

2350 

2360 

<070> 

2370 

2380 

2390 

<022> 

2400 

<252> 

2410 


2420 

<045> 

2430 

<056> 

2440 

<008> 


<069> 

<064> 

2450 

<032> 

<029> 

;>nun®" 

<061 > 

2460 

<200> 


<211 > 

2470 

<097> 

2480 

<079> 


<058> 

2490 

<079> 


< 113> 

2500 

<009> 

2510 

<038> 

2520 


2530 

< 144> 

2540 

<016> 

2550 

< 145> 

2560 

<057> 

2570 

<229> 

2580 


Listings 


N,7SPACE > W£6SPACE>" 

1970 B9S(9)="{GREY 2,RVSON,6SPACEJEI7SPACE 
.RVOFF, YELLOW J±±±±±±±±±±±£GREY 2,RVS0 
N,7SPACE >ff£6SPACE>“ 

1980 B9S<10)="{GREY 2,RVSON,6SPACE>G<7SPAC 

E.RVOFF.YELLOW} ————- fRRFV 2.RVS 

ON,7SPACE>H<6SPACE>" 

1990 B9*(ll)="{GREY 2,RVSON,6SPACE>^f7SPAC 
E,RVOFF,YELLOWJ±±±±±±±±±±±£GREY 2,RVS 
ON,7SPACE JfJ C6SPACE>" 

2000 B9S(12)="£GREY 2,RVSON,6SPACE>^{7SPAC 
E.RVDFF.YELLOWCBRFV 2,RVS 
ON,7SPACE >R{6SPACE >“ 

2010 B9S(13)="tGREY 2,RVS0N,6SPACE>^£7SPAC 
ON,7SPACE>H {6SPACE >“ 

2020 B9S(141="{GREY 2,RVSON,6SPACEJST7SPAC 
E.RVOFF.YELLOW>CBRFY 2,RVS 
ON 1 7SPACE >H£6SPACE J“ 

2030 B9S(15)="{GREY 2,RVSON,6SPACE>L p ' p - pVp ' p ' 
?{RVOFF.YELLOMl .LWW-n-t-f CRRFV 2.RVS 
ON> ppp-p-p-p-p-S{6SPACE>- 

2040 B9S(16)="{GREY 2,RVSON,5SPACE,RVOFF >.£. 
{7SPACE >.{11 SPACE > . {7SPACE , GREY 2 J5{R 
VSON,5SPACE >" 

2050 B9S<17)="{GREY 2,RVSON,4SPACE,RVOFF>£ 

.{GREY 2> 

{RVSON , 4SPACE > " 

2060 B9S(18)="{GREY 2,RVSON,3SPACE,RVDFFJ£ 
{7SPACEJ.{15SPACE>.{7SPACE,GREY 2>5£R 
VSON,3SPACE >" 

2070 B9S <19)= "{GREY 2,RVSON,2SPACE,RVOFF>ü 
{7SPACEJ.{17SPACE>.{7SPACE,GREY 2>1?{R 
VSON,2SPACE >" 

2080 B9S(20)="{GREY 2,RVS0N,SPACE,RV0FF>£. 

.. 

EY 2>3F{R VSON,SPACE>" 

B9S(21)="{GREY 2,RVSON,RVOFF}££7SPACE 
>.{21SPACEJ.{7SPACE,GREY 2>¥{RVSON>" 
B9S(22)="{LIG.BLUE>JAIL" 
B9S(23)="{LIG.BLUEJWAECHTER / LASER-G 
ITTER" 

REM ** RAUM 10 ** 

DIM BAS(23) 

BA*(1)=“{GREY 2,RVSON,3SPACE>fl£31SPAC 
E >Ü£3SPACE >" 

BAi(2)="{RVSON,GREY 2,4SPACE>fl{29SPAC 
EJHMSPACEJ" 

BAS(3 > ="{GREY 2,RVSON,2SPACE,RVOFF >¥{ 
RVSON,2SPACE >fl{27SPACE>H£5SPACE >" 

BAS (4 ) = ■'• {RVSON , GREY 2,2SPACE , RVOFF , SP 
ACE >¥{RVSON, 2SPACE > fl YYYWWY WWYVYYV 
WYYY7vY££tSPACE > " 

BAS < 5)=“{RVSON,BREY 2,2SPACE,RVOFF,2S 
PACE >5{RVSON,SPACE>H{25SPACE >U£6SPACE 
>" 

BAS(6)="{RVSON,GREY 2,2SPACE,RVOFF JTT 
T£RVSON,SPACE >H£25SPACE >R{6SPACE >" 

BAS(7)="{RVSON.GREY 2,2SPACE,RVOFF,3S 
PACE,RVSON,SPACE >H£25SPACE >R{6SPACE >“ 
BAS(8)="{RVSON,GREY 2,2SPACE,RVOFF,3S 
PACE,RVSON,SPACE >H{9SPACE,RVOFF,BLUE > 
aVTOY£(GREY 2 , RVSON , 9SPACE {6SPACE > 


2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 


BAS (9) = '' {RVSON, GREY 2,2SPACE,RVOFF,3S 
PACE,RVSON,SPACE >H{9SPACE,RVOFF,BLUE > 
TiHEY {2SPACE >U{GREY 2 , RVSON, 9SPACE >Tf{6 
SPACE>" 

BAS(10)="{RVSON,GREY 2,2SPACE,RVOFF,3 
SPACE,RVSON,SPACE Jff{9SPACE,RVOFF,BLUE 
>HYOU !W{RVSON,GREY 2,9SPACE>TJ{6SPACE 

>“ 

BAS <11)="£RVSON,GREY 2,2SPACE,RVOFF,3 
SPACE,RVSON,SPACE >H{9SPACE,RVOFF,BLUE 
>i.’p'pVp"pg{RVSON , BREY 2,9SPACE })J{6SPACE 

>" 

BAS(12)="{RVSON,GREY 2,2SPACE,RVOFF,3 
SPACE,RVSON,SPACE >B{8SPACE,RVOFF >£s5: 

: :: T{RVSON,8 SPACE>n{6 SPACE>" 

BAS(13)="{RVSON,GREY 2,2SPACE,RVOFF,3 
SPACE,RVSON,SPACE >H{8 SPACE,RVOFF JTTTT 
TtTtY{RVSON,8 SPACE>W£6SPACE>" 

BAS(14)="{RVSON,GREY 2,2SPACE,RVOFF,3 
SPACE,RVSON,SPACE >H{25SPACEJW£6SPACE> 


2280 BAS(15)="{RVSON,GREY 2,2SPACE,RVOFF,3 
SPACE , RVSON , SPACE > LP P P P P P P ppp p P P'P'P'P'P'P’ 


ppTp'p'ppB {6SPACE > '• 

BAS ( 16) = •■ {RVSON , GREY 2,2SPACE , RVOFF >0 
ee££8SPACE>. {9SPACE >. {8SPACE>¥£RVSON, 
5SPACEJ" 

BAS(17)=”{RVSON,GREY 2,2SPACE,RVOFF >. 

.3?{RVS0 

N,4SPACE >“ 

BAS(18)="{RVSON,GREY 2,2SPACE,RVOFF,1 
0SPACE>. £13SPACE >. {8SPACE>¥£RVS0N,3SP 
ACE> " 

BAS(19)="{RVSON,GREY 2,2SPACE,RVOFF,9 
SPACE>. £15SPACE>.{BSPACE >¥{RVSON,2SPA 
CE>" 

BAS(20)="{RVSON,GREY 2,SPACE,RVOFF>£. 

.?{R 

VSON,SPACE>" 

BAS(21)="{RVSON,GREY 2,RVOFF >£{BSPACE 
>.£19SPACE>.{8SPACE>¥" 

BAS(22)=“£LIG.BLUE > DEPOT" 

BAS(23)="£LIG.BLUE>COMPUTER / SCHWERT 


REM ** RAUM 11 ** 

DIM BBS(23) 

BBS(1)="{RVSON,GREY 2,3SPACE>ü£31SPAC 
E>M£3SPACE>" 

BBS(2)="{RVSON,GREY 2,4SPACE>fl£29SPAC 
E >H£4SPACE >" 

BBS(3)="{RVSON,GREY 2,5SPACE>fl£27SPAC 
E>Ü£2SPACE,RVOFF>££RVSON,2SPACE>" 

BBS(4)="{RVSON,GREY 2,6SPACE>AYYYYYYY 
YYYYYYYYYYYYyYYYYYÄ £2SP ACE, RVOFF >£{SP 
ACE,RVSON,2SPACE>" 

BBS(5)="{RVSON,GREY 2,6SPACE>E£25SPAC 
E>H£SPACE,RVOFF >£{2SPACE,RVSON,2SPACE 
>" 

BBS(6)="{RVSON,GREY 2,6SPACE5EY5SPACE 
, RVOFF , BLUE >OVYYYyYYyYYYYYY£ {RVSON , GR 
EY 2,4SPACE>H£SPACE,RVOFF >TTT {RVSON,2 
SPACE>" 

BBS(7)="{RVSON,GREY 2,6SPACE>^{5SPACE 
, RVOFF , BLUE>'g£ 14SPACE >H£RVSON , GREY 2 , 
4-PACE}ff {SPACE,RVOFF,3SPACE,RVSON,2SP 
ACE > " 

BBS (8)=” {RVSON,GREY 2,6SPACE>'g {5SPACE 
,RVOFF,BLUE>t?{SPACE,LIG.GREENJPASSWOR 
D ?{BLUE,3SPACE>K£RVS0N,GREY 2,4SPACE 
>H£SPACE,RVOFF,3SPACE,RVSON,2SPACE>" 
BBS(9)=”{RVSON,GREY 2,6SPACE>E' TT£2SP 
ACE,RVOFF,BLUE JE £14SPACE>H£RVSON,GREY 
2,SPACE >TT HYSPACE,RVOFF,3SPACE,RVSO 
N,2SPACE >" 

BBS (10)= "{RVSON, GREY 2,6SPACE>’g T+£2S 
PACE,RVOFF,BLUE >E>£13SPACE>W{RVSON,GR 
EY 2.SPACEJTY H£SPACE,RVOFF,3SPACE.RV 
SON,2SPACE >" 

BBS(11)="{RVSON,GREY 2,6SPACE>^£5SPAC 
E,RVOFF,BLUE >^£ 14SPACE>R{RVSON,GREY 2 
,4SPACEJWCSPACE,RVOFF,3SPACE,RVSON,2S 
PACEJ" 

BBS(12)="{RVSON,GREY 2,6SPACE>S£5SPAC 
E,RVOFF,BLUE >S£14SPACE>H{RVSON,GREY 2 
,4SPACE JTKSPACE,RVOFF,3SPACE,RVSON,2S 
PACEJ" 

BBS(13)="{RVSON,GREY 2.6SPACEJG£5SPAC 

REY 2,4SPACE JH£SPACE,RVOFF,3SPACE,RVS 
0N.2SPACEJ" 

BBS(14 > ="{RVSON,GREY 2,6SPACE J^ £25SPA 
CEJH£SPACE,RVOFF,3SPACE,RVSON,2SPACEJ 

BBS (15)=" {RVSON,GREY 2,6SPACE>i.'p"p'pVp"p' 
■pp-p-ppp-pp-p-p-p-p-pp-pVp-p-p-S {SPACE, RVOFF, 3SPA 
CE,RVSON,2SPACEJ" 

BBS(16)="{RVSON,GREY 2,5SPACE,RVOFFJi 
{7SPACEJ.«2SPACEJ.{6SPACEJ¥85@{RVS0N 
,2SPACE>" 

BBS(17)="{RVSON,GREY 2,4SPACE,RVOFF >£ 

.£RVSO 

N.2SPACEJ" 

BBS(18 > = "{RVSON,GREY 2,3SPACE,RVOFF >£ 
{7SPACEJ.{16SPACEJ.£8SPACE,RVSON,2SPA 
CEJ" 

BBS(19)="{RVSON,GREY 2,2SPACE,RVOFFJi 
{7SPACEJ.{18SPACEJ.{7SPACE,RVSON,2SPA 
CEJ" 

BBS(20)="{RVSON,GREY 2,SPACE,RVOFF J£. 
.¥£R 


<047> 

< 109> 

<071> 

<239> 

<250> 

< 147> 

< 158J 

< 159> 

<236> 

<025> 

<057> 

< 196> 
<207> 
<039> 

<021 > 

<238> 

<053> 

< 002 > 

< 119> 

< 176> 

<032> 

<085> 

<096> 

<055> 

<207> 

<043> 

< 105> 

<013> 

< 181 > 

<192> 


asso? 
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Listing »Zeittunnel« (Fortsetzung) 

VSON,SPACE}" <143> 

2590 BB*(21>="«RVSON.GREY 2,RV0FF}£«7SPACE 

>.«22SPACE}.«6SPACE}?" <154> 

2600 BB* <22> =" «LIG. BLUE}COMPUTERRAUM" <195> 

2610 BB*(23)="«LIG.BLUE}COMPUTER / MIKROPH 

ON" <127> 

2611 ZN=INT(RND<1>*900000)+10000 <074> 

2612 ZF*=CHR*(INT < RND(1)*30)+65> +CHR*(INT( 

RND <1> *30)+65)+"—" <119> 

2613 ZF*=ZF*+STR* <INT(RND(1> *90)+10) <155> 

2614 LG=INT(RND(1>*9000001+10000 <056> 

2620 GOSUB 10000:GOTO 3000 <074> 

2700 REM ** ROUTINEN ** <065> 

2710 REM ** BILDTEXT ** <055> 

2720 PRINT"«YELLOW}*********************** 

**************** ... <198> 

2730 PRINT"«YELLOW}* STANDORT:«27SPACE}* " 

5 <103> 

2740 PRINT"«YELLOW}* DU SIEHST:«26SPACE}* 

“5 <107> 

2750 PRINT"«YELLOW}*********************** 

****************". < 228 > 

2760 X=12:Y=22:X1=13:Y1=23:RETURN <100> 

2770 REM ** WOERTERLESEN ** <178> 

2780 VA*="":V*="" <065> 

2790 POKE 211,CX:POKE 214,CY:SYS 58640 <241> 

2800 PRINT“«WHITE}> «RVSON,SPACE,RVOFF,LEFT 

>”5 ' <150> 

2810 GET V*:IF V*=""THEN 2810 <198> 

2815 IF V*="«UP}”OR V*="«HOME}"OR V*="«DOW 
N}"OR V*="«RIGHT}"OR V*="«LEFT}"OR V* 

="«CLR}"THEN 2810 <024> 

2820 IF V*=CHR*(13)THEN PRINT" ";:RETURN <201> 
2830 IF V*=CHR*(20)THEN 2870 <194> 

2840 PRINT V*;"{RVSON,SPACE,RVOFF,LEFT}"; <049> 
2850 VA»=VA*+V* < 121 > 

2860 V$="":GOTO 2810 <053> 

2870 L=LEN(VA*)-1 <234> 

2880 IF L=—1 THEN 2810 <034> 

2890 PRINT V*; <163> 

2900 VA*=LEFTS(VA*,L) C <024> 

2910 GOTO 2810 <189> 

2920 REM ** WORTAUSGABE ** <238> 

2930 CY=CY+2 <067> 

2940 IF CY>=24 THEN CY=24:PRINT"«DOWN}" <250> 

2950 POKE 211,CX:POKE 214,CY:SYS 58640 <146> 

2960 PRINT"«WHITE}>";ANS <169> 

2970 CY=CY+2 <107> 

2980 IF CY>=24 THEN CY=24:PRINT"«DOWN}"; <093> 
2990 AN*="":RETURN < 042> 

3000 REM ** HAUPTPROGRAMM ** <225> 

3010 REM ** TEIL 1 ** <099> 

3020 PRINT"«CLR}":POKE 53280,0:POKE 53281, 

0 <166> 

3025 POKE 53265,PEEK(53265)AND 239 <009> 

3030 FOR 1=1 TO 21:PRINT B1*(I):NEXT <085> 

3040 GOSUB 2710 <066> 

3050 POKE 211,X:POKE 214,Y:SYS 5B640 <112> 

3060 PRINT Bl*(22) <228> 

3070 POKE 211,XI:POKE 214,Y1:SYS 58640 <230> 

3080 PRINT Bl*(23); <053> 

3085 POKE 53265,PEEK(53265)OR 16 <016> 

3090 GET A*:IF A*<>CHR*(13)THEN 3090 <161> 

3100 PRINT"«CLR}":POKE 53280,14:POKE 53281 

,6 <050> 

3110 PRINT"«WHITE,SPACE}DU BEFINDEST DICH 

IN EINEM WOHNZIMMER." <156> 

3120 PRINT"«WHITE,DOWN,SPACE}DU SIEHST EIN 

BILD AN DER WAND UND" <010> 

3130 PRINT"«WHITE,DOWN,SPACE}EINEN GROSSEN 

SCHRANK“ <211> 

3140 CX=1:CY=8 <142> 

3145 GOSUB 2770 <178> 

3150 IF VA*="BILD"THEN 3000 <027> 

3160 IF VA*="N"OR VA*="S"OR VA*="W“OR VA*= 

"O"OR VA*="OB"OR VA*="UN"THEN AN*="KE 
IN WEG" <090> 

3170 IF VA*="OEFFNE SCHRANK"THEN AN*="DER 

SCHRANK OEFFNET SICH":Z=1 <065> 

3180 IF VA*=“GEHE DURCH SCHRANK"AND Z<>1 T 

HEN AN*="DER SCHRANK IST ZU" <191> 

3190 IF VA*=“GEHE DURCH SCHRANK"AND Z=1 TH 

EN 3310 <177> 

3200 RESTORE:FOR A=1 TO 7:READ Q*,W* <175> 

3210 IF G*=VA*THEN AN*=W* <13B> 

3220 NEXT <034> 


3230 DATA"OEFFNE SCHRANK","DER SCHRANK OEF 

FNET SICH",“NEHME SCHRANK" <152> 

3240 DATA"DER SCHRANK IST ZU SCHWER",“DRUE 

CKE SCHRANK" <072> 

3250 DATA"DER SCHRANK IST ZU SCHWER","SAGE 

SCHRANK","DU SAGST SCHRANK" <004> 

3260 DATA"SAGE BILD“,"DU SAGST BILD",“ZERS 

TOERE BILD",“DAS BILD IST ZERSTOERT“ <227> 
3270 DATA"ZZ","ZZ" <113> 

3280 IF AN*="“THEN AN*="DAS HAT KEINEN SIN 

N " <007> 

3290 GOSUB 2920 <064> 

3300 GOTO 3145 <070> 

3310 REM ** TEIL 2 ** <145> 

3330 FOR 1=1 TO 8 :FOR 11=1 TO 15:POKE 5328 

0,1:POKE 53281,I1:NEXT:NEXT <244> 

3340 PRINT"«CLR}":POKE 53280,15:POKE 53281 

*15 <084> 

3365 FOR A=1 TO 3500:NEXT <255> 

3370 PRINT"«CLR}":POKE 53280,0:POKE 53281, 

0 <006> 

3375 POKE 53265,PEEK(53265)AND 239 <105> 

3380 FOR 1=1 TO 21:PRINT B2*(I):NEXT <182> 

3390 GOSUB 2710 <162> 

3400 POKE 211,X:POKE 214,Y:SYS 58640 <208> 

3410 PRINT B2*(22) <069> 

3420 POKE 211,X1:POKE 214,Y1:SYS 58640 <070> 

3430 PRINT B2*(23); <149> 

3435 POKE 53265,PEEK(53265)OR 16 <111> 

3440 GET A*:IF A*<>CHR*(13)THEN 3440 <255> 

3450 PRINT"«CLR}":POKE 53280,14:POKE 53281 

.6 <145> 

3460 PRINT”«WHITE,RIGHTTDU BIST DURCH EINE 

N ZEITTUNNEL AN" <225> 

3470 PRINT"«WHITE,DOWN,RIGHTTEINEN ANDEREN 

ORT UND IN EINE ANDERE" <090> 

3480 PRINT"«WHITE,DOWN,RIGHT}ZEIT VERSCHLA 

GEN WORDEN.DU BEFINDEST" <077> 

3490 PRINT"«WHITE,DOWN,RIGHT}DICH AUF EINE 

M FREMDARTIGEM KRISTALL" <254> 

3500 PRINT"«WHITE,DOWN,RIGHT}PLANETEN AN E 

INER WEGKREUZUNG." <174> 

3510 CX=1:CY=12 <044> 

3515 GOSUB 2770 <037> 

3517 IF VA*="BILD"THEN 3370 <149> 

3520 IF LEN(VA*)>2 THEN AN*="DAS HAT KEINE 

N SINN":GOSUB 2920:GOTO 3515 <03B> 

3530 IF VA*="N“THEN AN*=”DU STEHST VOR EIN 

ER WAND":GOSUB 2920:GOTO 3515 <222> 

3535 IF VA*< >"0"AND VA*<>"W“THEN AN*="KEIN 

WEG":GOSUB 2920:GOTO 3515 <001> 

3540 IF VA*< >"O n THEN 3560 <147> 

3545 ZA=ZA+1 <169> 

3550 IF ZA=3 THEN 3590 <110> 

3555 IF ZA<3 THEN 3370 <112> 

3560 IF VA*="W"THEN ZA=ZA-1 <243> 

3570 IF ZA=—1 THEN 3730 <039> 

3575 IF ZA>—1 THEN 3370 <043> 

3580 GOSUB 2920 <099> 

3590 PRINT"«CLR}":POKE 53280,0:POKE 53281, 

0 <227> 

3595 POKE 53265,PEEK(53265)AND 239 <070> 

3600 FOR 1=1 TO 21:PRINT B2*(I):NEXT <147> 

3610 GOSUB 2710 <127> 

3620 POKE 211,X:POKE 214,Y:SYS 58640 <173> 

3630 PRINT B2*(22) <034> 

3640 POKE 211,X1:POKE 214,Y1:SYS 58640 <035> 

3650 PRINT B2*(23); <114> 

3655 POKE 53265,PEEK(53265)OR 16 <076> 

3660 BET A*:IF A*<>CHR*(13)THEN 3660 <224> 

3670 PRINT"«CLR}":POKE 53280,14:POKE 532B1 

,«■ < 110 > 

36B0 PRINT"«WHITE,RIGHT}DU BEFINDEST DICH 

AUF EINEM FREMD" <106> 

3690 PRINT"«WHITE,DOWN,RIGHT}ARTIGEM KRIST 

ALL-PLANETEN AN EINER" <125> 

3700 PRINT"«WHITE,DOWN,RIGHT}WEGKREUZUNG. A 

UF DEM BODEN LIEGT EINE" <206> 

3710 PRINT"«WHITE,DOWN,RIGHT}KARTE MIT DEM 

ZAHLENCODE:";ZN <205> 

3720 GOTO 3510 <232> 

3730 REM ** TEIL 3 ** <056> 

3740 PRINT“«CLR}":POKE 53280,0:POKE 53281, 

0 < 121 > 

3745 POKE 53265,PEEK(53265)AND 239 <220> 

3750 FOR 1=1 TO 21:PRINT B3*(I):NEXT <042> 

3760 GOSUB 2710 <021> 
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3770 PDKE 211,X:POKE 214,Y:SYS 58640 
3780 PRINT B3*(22) 

3790 POKE 211,XI:POKE 214,Y1:SYS 58640 
3800 PRINT B3*(23>; 

3805 POKE 53265, PEEK (53265) OR 16 
3810 BET A*:IF A*<>CHR*(13)THEN 3810 
3820 PRINT" CCLRV: POKE 53280,14s POKE 53281 
.6 

3830 PRINT"{WHITE,RIGHT>DU BEFINDEST DICH 
AUF DEM KRISTALL" 

3840 PRINT"{WHITE,DOWN,RIGHT»PLANETEN.DU S 
TEHST VOR EINEM SCHACHT," 

3850 PRINT"{WHITE,DOWN,RIGHTIDER IN DIE TI 
EFE FUEHRT." 

3860 CX=1:CY=B 
3870 Z=0:GOSUB 2770 

3880 IF VA*="0"THEN ZA=ZA+l:GOTO 3370 
3890 IF VA*="RU"THEN 3950 
3895 IF VA*="BILD"THEN 3730 
3900 IF VA*="W"OR VA*=“N"OR VA*="S"OR VA*= 
"OB"THEN AN*="KEIN WEG":Z=1 
3910 IF VA*="ZERSTOERE SCHACHT"THEN AN*="D 
U BIST ZU SCHWACH":Z=1 
3920 IF VA*="SAGE SCHACHT"THEN AN*="DU SAG 
ST SCHACHT":Z=1 

3930 IF Z=0 THEN AN*="DAS GEHT NICHT" 

3940 GOSUB 2920:GOTO 3870 
3950 REM ** TEIL 4 ** 

3960 PRINT" CCLRV:POKE 53280,0:POKE 53281, 
0 

3965 POKE 53265,PEEK(53265)AND 239 
3970 FOR 1 = 1 TO 21 SPRINT B4*(I):NEXT 
3980 GOSUB 2710 

3990 POKE 211,X:POKE 214,Y:SYS 58640 
4000 PRINT B4*(22> 

4010 POKE 211,X1:POKE 214,Y1:SYS 58640 
4020 PRINT B4*(23); 

4025 POKE 53265,PEEK(53265)OR 16 
4030 GET AS:IF A*< >CHR*(13)THEN 4030 
4040 PRINT"{CLR>":POKE 53280,14:POKE 53281 
,6 

4050 PRINT"{WHITE,RIGHTJDU BEFINDEST DICH 
IN EINER UNTER-" 

4060 PRINT"{WHITE,DOWN,RIGHT>IRDISCHEN HAL 
LE.DURCH EIN FENSTER" 

4070 PRINT"{WHITE,DOWN,RIGHTJKANNST DU DIE 
STERNE SEHEN.AUSSER-" 

4080 PRINT"{WHITE,DOWN,RIGHTJDEM SIEHST DU 
EINEN KNOPF AN DER“ 

4090 PRINT”{WHITE,DOWN,RIGHTJWAND UND EINE 
LEITER.“ 

4100 CX=1:CY=12 
4110 Z=0:GOSUB 2770 
4120 IF VA*="BILD"THEN 3950 
4130 IF VA*="N"OR VA*="S"OR VA*="W"OR VA*= 
"0"0R VA*="RU"THEN AN*="KEIN WEG" 

4140 IF VA*="OB"THEN 3730 
4150 IF VA*="ZERSTOERE FENSTER"THEN 4310 
4160 IF VA*="DRUECKE KNOPF"THEN 4220 
4170 IF VAS="ZERSTOERE LEITER"THEN AN*="DU 
BIST ZU SCHWACH":Z=1 

4180 IF VA*="SAGE CODE"THEN AN*="DU SAGST" 
+STR*(ZN) 

4190 IF VA*="DRUECKE FENSTER"THEN AN*="NIC 
HTS PASSIERT":Z=1 

4200 IF Z=0 THEN AN*="DAS HAT KEINEN SINN" 
4210 GOSUB 2920:GOTO 4110 
4220 PRINT"{CLR3" 

4230 PRINT"{WHITE,RIGHTJDU SIEHST EINEN BI 
LDSCHIRM UEBER" 

4240 PRINT"{WHITE,DOWN,RIGHTJDEM KNOPF AUF 
TAUCHEN.ER HAT DIE AUF-" 

4250 PRINT"{WHITE,DOWN,RIGHTJSCHRIFT:{LIG. 

GREENJNENNEN SIE DEN TRANSMITTER" 

4260 PRINT"{LIG.GREEN,DOWN,RIGHT >CODE." 
4270 CX=1:CY=10:GOSUB 2770 
4280 IF VA*<>"SAGE"+STR*(ZN)THEN 4310 
4300 GOTO 4510 

4310 PRINT"{CLRJ":POKE 53280,0:POKE 53281, 
0 

4320 PRINT"{RED,SPACE>DAS FENSTER OEFFNET 
SICH UND DU" 

4330 PRINT“{RED,DOWN,SPACEIWIRST IN DAS AL 
L HINAUSGEZOGEN." 

4440 PRINT"{RED,2D0WN,SPACE}ES WIRD KAELTE 
R UND KAELTER..." 

4450 GET A*: IF A*=""THEN 4450 


<067> 

4460 

< 185> 

< 185> 

4470 

<009> 

4480 

<226> 

4490 

< 115> 

4500 

4510 

<004 > 

4520 

<096> 

4530 

< 167> 

4540 

<214> 

<097> 

4550 

<000> 

4560 

< 1BB> 

< 156> 

4570 

<017> 

4575 

4580 

<004> 

4590 

< 14B> 

4600 

4610 

< 153> 

4620 

<246> 

4625 

<098> 

4630 

<022> 

4640 

<086> 

< 185> 

4650 

<008> 

4660 

<242> 

<032> 

4670 

< 151 > 

4680 

< 150> 

4690 

<231 > 

4695 

< 191 > 

4700 

<075> 

4710 

<225> 


G46H 

<234> 

)fu.in# 

4720 

< 145> 

4730 

4740 

< 177> 

4750 

< 165> 

4760 

<062> 

< 125> 
<241 > 

4770 

<247> 

4775 

<058> 

< 125> 

4780 

<203> 

< 124> 

4785 

<096> 

4787 

4790 

< 173> 

4800 

< 191 > 
<054> 

4810 

<101> 

4820 

<252 > 

4830 

4840 

< 193> 

4850 

<101> 

4860 

< 119> 

< 161 > 

< 188> 

4870 

< 172> 

4880 

<047> 

4890 

< 181 > 

4900 

<134> 

4910 

<234> 

4920 

<211 > 

4930 

<013> 

4940 


(J/N) 


5 #* 


,15 


NEM MERKWUERDIGEM KRAFT" 


GEN.DU FUEHLST DICH SCHWERE" 


GENEHM GELOEST." 


-OR 1 = 
2710 


1 TO 21:PRINT B5*(I):NEXT:GOSUB 


,6 

PRINT"{WHITE,RIGHT) 
IN EINEM RAUM MIT” 


DER WAND SIEHST DU" 


950 


"RU"OR VA*="OB"THEN AN*="KEIN WEG":Z= 


IST ZU SCHWACH":Z=1 
IF VA*="N"THEN 4930 

IF VA*="SAGE SAFE"THEN AN*="DU SAGST 
SAFE":Z=1 

IF VA*="SAGE KNOPF"THEN AN*="DU SAGST 
KNOPF":Z=1 

IF VA*="BEFRAGE GEFANGENEN"AND GS=1 T 
HEN AN*="DER SAFE SCHLUESSEL IST "+ZF 
*:Z=1 


="DER GEFANGENE STEHT DAVOR":Z=1 
IF VA*="DRUECKE KNOPF"AND GS=1 THEN A 
N*="DER GEFANGENE VERSCHWINDET":GS=0: 
Z=1 


MME SAGEN:{LIG.GREENJNENNE" 

PRINT"{LIG.GREEN,DOWN,RIGHT >SAFE SCHL 
UESSEL-CODE" 

CX=1:CY=6:GOSUB 2770 
IF VA*="SAGE "+ZF*THEN 4880 
AN*="FALSCH":GOSUB 2920:POKE 53280,0: 
POKE 53281,0:PRINT"{CLRJ“ 

PRINT"{DOWN,RIGHT,RED>DER SAFE IST EX 
PLODIERT UND EIN" 

PRINT"{DOWN,RIGHT, RED}TRUEMMER-STUECK 
HAT DEINEN KOPF" 

H 

DU BIST TOT.":GOTO 4450 
AN*="IM OFFENEN SAFE IST EINE MAGNET¬ 
KARTE ": GOSUB 2920 
GOSUB 2770 

IF VA*= "NEHME MAGNET-KARTE "THEN AN*=" 
OKAY":MK=1:GOSUB 2920:GOTO 4570 


ICH.":GOTO 4850 
REM ** TEIL 6 ** 


<237> 

<213> 

<046> 

<006> 

<037> 

<073> 

<244> 

<05B> 

<233> 

<213> 

< 174> 

< 186 > 
<029> 

<254> 
< 122 > 
<242> 
<241 > 
<067> 
<026> 

< 172> 

<02B> 

< 164 > 

< 0 1 1 > 

< 123 > 
<152> 
<055> 
<055> 

<206> 


<058> 

<226> 
< 141 > 

<018> 

<218> 


<230> 
< 104> 
<025> 


<021 > 

< 129> 

< 1B1 > 
<056> 

<228> 

<226> 

< 185> 
<053> 

<241 > 


<216> 

<098> 

<226> 

< 135> 
<138> 

< 160> 

<016> 

<246> 

<240> 
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H <046> 

4945 POKE 53265,PEEK(53265)AND 239 <145> 

4950 FOR 1=1 TO 21:PRINT B6*(I):NEXT <226> 

4960 60SUB 2710 <202> 

4970 POKE 211,X:POKE 214,Y:SYS 58640 <248> 

4980 PRINT B6*(22) <113> 

4990 POKE 211,XI:POKE 214,Y1:SYS 58640 <110> 

5000 PRINT B6*(23); <193> 

5005 POKE 53265,PEEK(53265)OR 16 <151> 

5010 GET A*:IF A*<>CHR*(13)THEN 5010 <034> 

5020 PRINT"<CLR>":POKE 53280,14:POKE 532B1 

i* <185> 

5030 PRINT”{WHITE,RIGHTJDU BEFINDEST DICH 

IN EINEM GANG.AN DER” <1B3> 

5040 PRINT"{WHITE,DOWN,RIGHTIWAND SIEHST D 

U ZWEI WEGWEISER." <133> 

5050 CX=1:CY=6 <009> 

5060 Z=0:GOSUB 2770 <170> 

5070 IF VA*="W"AND W=3 THEN 5150 <209> 

5080 IF VA*="0"AND 0=3 THEN 5430 <204> 

5090 IF VA*="BILD"THEN 4930 <195> 

5100 IF VA*="N"OR VA*="RU"OR VA*="OB“THEN 

AN*="KEIN WEG":Z=1 <0B4> 

5110 IF VA*="S“THEN 4570 <015> 

5120 IF VA*="W"AND W<3 THEN W=W+1:D=0-1:GO 

TO 4940 <111> 

5125 IF VA*="0"AND 0<3 THEN 0=0+1:W=W-1:GO 

TO 4940 <100> 

5130 IF Z=0 THEN AN*="DAS HAT KEINEN SINN" <220> 
5140 GOSUB 2920:GOTO 5060 <016> 

5150 REM ** TEIL 7 ** <206> 

5160 POKE 53280,0:POKE 53281,0:PRINT"{CLR> 

" < 011 > 

5165 POKE 53265,PEEK(53265)AND 239 <110> 

5170 FOR 1=1 TO 21:PRINT B7*(I>:NEXT <192> 

5180 GOSUB 2710 <167> 

5190 POKE 211,X:POKE 214,Y:SYS 58640 <213> 

5200 PRINT B7* (22) <079> 

5210 POKE 211,XI:POKE 214,Y1:SYS 58640 <075> 


5220 PRINT B7*(23>; C <159>in 


5225 POKE 53265,PEEK(53265)OR 16 <116> 

5230 GET A*:IF A*<>CHR*(13)THEN 5230 <003> 

5240 PRINT"{CLRJ":POKE 53280,14:POKE 53281 

,6 <150> 

5250 PRINT"{WHITE,RIGHTJDU BIST AM ENDE DE 

S GANGES ANGEKOMMEN." <171> 

5260 PRINT"{WHITE,DOWN,RIGHTJVOR DIR SIEHS 

T DU EIN LASER-GITTER." <108> 

5270 CX=1:CY= 6 :LS=0 <161> 

5280 Z=0:GOSUB 2770 <135> 

5290 IF VA*="BILD"THEN 5160 <136> 

5300 IF VA*="O"THEN W=W-l:GOTO 4940 <202> 

5310 IF VA*="W"OR VA*="S"OR VA*="RU"OR VA* 

="OB"THEN AN*="KEIN WEG":Z=1 <228> 

5320 IF VA*=“N"AND LS=0 THEN AN*="KEIN WEG 

":Z=1 <103> 

5330 IF VA*="N"AND LS=1 THEN 5630 <022> 

5340 IF VA*="SAGE"+STR*(LG> THEN AN*="DAS L 

ÄSER GITTER VERSCHWINDET":Z=1:LS=1 <213> 

5350 IF VA*="GEHE DURCH LASER-GITTER"THEN 

5390 <176> 

5360 IF VA*="DRUECKE LASER-GITTER“THEN 539 

0 < 046> 

5370 IF Z=0 THEN AN*="DAS HAT KEINEN SINN" <204> 
5380 GOSUB 2920:GOTO 52B0 <005> 

5390 PRINT"{CLRJ":POKE 53280,0:POKE 53281, 

0 <242> 

5400 PRINT"{RED,DOWN,RIGHTJDIE LASERSTRAHL 

EN HABEN DICH DURCH-" <023> 

5410 PRINT"<RED,DOWN,RIGHTJBDHRT.DU BIST T 

OT" <205> 

5420 GOTO 4450 <151> 

5430 REM ** TEIL S ** <232> 

5440 POKE 53280,0:POKE 53281,0:PRINT"{CLR> 

" <036> 

5445 POKE 53265,PEEK(53265)AND 239 <135> 

5450 FOR 1=1 TO 21:PRINT B 8 *(I):NEXT <218> 

5460 GOSUB 2710 <192> 

5470 POKE 211,X:POKE 214,Y:SYS 58640 <23B> 

5480 PRINT"{LIG.BLUE>GANG—ENDE" <090> 

5490 POKE 211,X1:POKE 214,Y1:SYS 58640 <100> 

5500 PRINT"{LIG.BLUEJWANDOEFFNUNG"; <197> 

5505 POKE 53265,PEEK(53265)OR 16 <141> 

5510 GET A*:IF A*<>CHR*(13)THEN 5510 <029> 

5520 POKE 53280,14:POKE 53281,6:PRINT”{CLR 


5530 

5540 

5550 

5560 

5570 

5575 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5645 

5650 

5660 

5670 

5680 

5690 

5700 

5705 

5710 

5720 

5730 

5740 

5750 

5755 

5760 
5770 
5775 
5780 
5 /tO 
5800 

5810 

5820 

5830 


5835 


5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5945 

5950 

5955 

5960 

5970 

5980 

5990 

6000 

6010 

6015 

6020 

6030 

6040 

6050 


>" 

PRINT"{WHITE,RIGHTJDU BIST AM GANG-EN 
DE ANGELANGT.AUF” 

PRINT"{WHITE,DOWN,RIGHTJDEM BODEN IST 
EINE KARTE MIT DER" 

PRINT"{WHITE, DOWN, RI GHT >NUMMER: "; LG 

CX=1:CY =8 

Z=0:GOSUB 2770 

IF VA*= "BILD"THEN 5430 

IF VA*="W"THEN 4940 

IF VA*="N"THEN 6280 

IF VA*="S"OR VA*="0"0R VA*="RU“OR VA* 

="OB“THEN AN*="KEIN WEG":Z=1 

IF Z=0 THEN AN*="DAS HAT KEINEN SINN" 

GOSUB 2920:GOTO 5570 

REM ** TEIL 9 ** 

PRINT" {CLRJ":POKE 53280,0:POKE 53281, 
0 

POKE 53265,PEEK(53265)AND 239 
FOR 1=1 TO 21:PRINT BA*(I):NEXT 
GOSUB 2710 

POKE 211,X:POKE 214,Y:SYS 58640 
PRINT BA*(22) 

POKE 211,X1:POKE 214,Y1:SYS 58640 
PRINT BA*(23); 

POKE 53265,PEEK(53265)OR 16 
GET A*:IF A*<>CHR*(13)THEN 5710 
PRINT"<CLR>":POKE 53280,14:POKE 53281 

7 ^> 

PRINT"{WHITE,RIGHTJDU BEFINDEST DICH 
IM DEPOT.AN DER WAND¬ 
PRINT" {WHITE,DOWN,RIGHTJHAENGT EIN CO 
MPUTER.SEIN BILDSCHIRM" 

PRINT"{WHITE,DOWN,RIGHTJHAT DIE AUFSC 
HRIFT:{LIG.GREEN >HEY YOU{WHITE >." 

IF WS=0 THEN PRINT"{WHITE,DOWN,RIGHTJ 
AUF DEM BODEN LIEGT EIN SCHWERT." 

CX=1:CY=10:WS=0 
CF=0:Z=0:GOSUB 2770 
IF VA*="BILD"THEN 5640 
IF VA*="W"THEN 5950 
IF VA*="S"THEN 5150 

IF VA*="N"OR VA*="0"0R VA*="RU"OR VA* 
="OB"THEN AN*=”KEIN WEG":Z=1 
IF VA*="BEFRAGE COMPUTER"THEN 5870 
IF VA*="ZERSTOERE COMPUTER”THEN 5390 
IF VA*="NEHME SCHWERT"AND WS=0 THEN A 
N*="DU NIMMST DAS SCHWERT":WS=1:CF=1: 
Z=1 

IF VA*="NEHME SCHWERT"AND WS=1 AND CF 
=0 THEN AN*="HIER IST KEIN SCHWERT":Z 
= 1 

IF VA*="SAGE SCHWERT"THEN AN*="DU SAG 
ST SCHWERT":Z=1 

IF Z=0 THEN AN*="DAS HAT KEINEN SINN" 
GOSUB 2920:GOTO 5770 
PRINT"{CLR>" 

PRINT"{WHITE,RIGHT}AUF DEM BILDSCHIRM 
ERSCHEINT FOLGENDER" 

PRINT"{WHITE,DOWN,RIGHT > TEXT:<LIG.GRE 
ENJSEIT URZEITEN WERDEN ICH UND" 
PRINT"{LIG.GREEN,DOWN,RIGHT JMEIN HERR 
AUF DIESEM RAUMSCHIFF GE-" 

PRINT"{LIG.GREEN,DOWN,RIGHT >FANGENGEH 
ALTEN.BEFREIE MEINEN HERRN" 

PRINT"{LIG.GREEN,DOWN,RIGHT>UND ER WI 
RD DIR HELFEN DEINE HEIMAT" 

PRINT"{LIG.GREEN,DOWN,RIGHT >WIEDERZUS 
EHEN." 

FOR 1=1 TO 6000:NEXT:GOTO 5720 
REM ** TEIL 10 ** 

PRINT"{CLR>":POKE 53280,0:POKE 53281, 
0 

POKE 53265,PEEK(53265)AND 239 
FOR 1=1 TO 21:PRINT BB*(I):NEXT 
GOSUB 2710 

POKE 211,X:POKE 214,Y:SYS 58640 
PRINT BB*(22) 

POKE 211,XI:POKE 214,Y1:SYS 58640 
PRINT BB*(23); 

POKE 53265,PEEK(53265)OR 16 
GET A*:IF A*<>CHR*(13)THEN 6020 
PRINT"{CLR>":POKE 53280,14:POKE 53281 
,6 

PRINT"{WHITE,RIGHTJDU BEFINDEST DICH 
IN EINEM COMPUTER-" 

PRINT"{WHITE,DOWN,RIGHTJRAUM.DER BILD 


< 175> 
<008 > 

<084> 

< 175> 
< 011 > 

< 170> 

< 166> 
<236> 
<236> 

<255> 

<189> 

<247> 

< 177> 

<237> 

<080> 

< 172> 

< 137> 

< 1 B3> 
<059> 
<045> 

< 139> 
<086> 
<232> 

< 120 > 

< 144> 

< 210 > 

<035> 

<024> 

< 195> 
<024> 

< 114> 

< 183> 

< 181 > 

<195> 
<21B> 
< 184> 


< 125> 


<038> 

< 100 > 

< 174> 
<234> 

< 116> 

<219> 
< 108> 
<085 > 
<035> 
<029> 

<245> 

< 175> 
< 022 > 

<036> 

< 135> 
<228> 
<192> 
<238> 

< 115> 
< 100 > 

< 195> 

< 141 > 
<026> 

< 175> 

< 148> 
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Zeittunnel 


Listings 


SCHIRM TRAEET DIE AUF-“ <138> 

6060 PRINT"{WHITE,DOWN,RIGHTJSCHRIFT:£LIG. 

GREEN}PASSWORD?“ <I07> 

6070 CX=1:CY=8 <011> 

6080 Z=0:GOSUB 2770 <170> 

6090 IF VA*="BILD"THEN 5950 <178> 

6100 IF VA*="SAGE "+ZF*THEN 6180 <043> 

6120 IF VA*="N"OR VA*="S"OR VA*=“W"OR VA*= 

"RU"OR VA*="OB"THEN AN*="KEIN WEG":Z= 

1 <192> 

6130 IF VA*="0"THEN 5630 <009> 

6140 IF VA*="SAGE COMPUTER"THEN AN*="DU SA 

GST COMPUTER"rZ=l <047> 

6150 IF VA*="ZERSTOERE COMPUTER"THEN 5390 <004> 

6160 IF Z=0 THEN AN*="DAS HAT KEINEN SINN" <230> 
6170 GOSUB 2920:GOTO 6080 <029> 

6180 PRINT"{CLR}" <172> 

6190 PRINT"{WHITE,RIBHT}DER BILDSCHIRM TRA 

EGT DIE AUFSCHRIFT:" <195> 

6200 PRINT"CLIG.GREEN,DOWN,RIGHT>PASSWORD 

AKZEPTIERT.WIE LAUTEN DEINE" <171> 

6210 PRINT"£LIG.GREEN,DOWN,RIGHT>BEFEHLE." <023> 
6220 CX=1:CY=8 <162> 

6230 Z=0:GOSUB 2770 <065> 

6240 IF VA*="ZERSTOERE RAUMSCHIFF"THEN 668 

0 <218> 

6250 IF VA*="ZERSTOERE COMPUTER"THEN AN*=" 

ALLE COMPUTER SIND AUSSER BETRIEB":Z= 

1 <066> 

6260 IF Z=0 THEN AN*="DAS HAT KEINEN SINN” <074> 

6270 GOSUB 2920:GOTO 6230 <126> 

6280 REM ** TEIL 11** <103> 

6290 PRINT"£CLR}":POKE 53280,0:POKE 53281, 

0 < 121 > 

6300 POKE 53265,PEEK ( 53265)AND 239 <225> 

6310 FOR 1=1 TO 21:PRINT B9*(I):NEXT <058> 

6320 GOSUB 2710 <031> 

6330 POKE 211,X:POKE 214,Y:SYS 58640 <077> 

6340 PRINT B9*<22> <201> 

6350 POKE 211,X1:POKE 214,Y1:SYS 58640 <195> 

6360 PRINT B9S(23) <222> 

6370 POKE 53265,PEEK(53265)OR 16 <241> 

6380 GET A*:IF AS<>CHR*(13)THEN 6380 <140> 

6390 PRINT"£CLR >":POKE 53280,14:POKE 53281 

<024> 

6400 PRINT"<WHITE,RIGHT>DU BIST IN EINEM R 

AUM MIT EINEM LASER-" ^025> 

6410 PRINT"{WHITE,DOWN,RIGHTJGITTER.“ <048> 

6415 IF WA=0 THEN PRINT"{WHITE,DOWN,RIGHT} 

DU SIEHST ZWEI WAECHTER“ <223> 

6420 CX=1:CY=8 <107> 

6430 Z=0:GOSUB 2770 <010> 

6440 IF VA*="BILD"THEN 6290 <016> 

6450 IF VA*="S"THEN 5430 <077> 

6460 IF VA*="N“OR VA*="W"OR VA*=“0"OR VA*= 

"RU"OR VA*=“OB“THEN AN*="KEIN WEG”:Z= 

1 <018> 

6470 IF VA*=“TOETE WAECHTER"AND WS=1 AND W 

A=0 THEN WA=1:GOTO 6510 <133> 

6475 IF VA*="TOETE WAECHTER"AND WA=1 THEN 

AN*="HIER SIND KEINE WAECHTER":Z=1 <122> 

6480 IF Z=0 AND WA=1 THEN AN*="DIE WAECHTE 

R BEMERKEN DICH.":GOSUB 2920 <242> 

6490 IF Z=0 AND WA=0 THEN FOR 1=1 TO 3500: 

GOTO 5390 <183> 

6500 GOSUB 2920:GOTO 6430 <103> 

6510 PRINT"{CLR}" <247> 

6515 PRINT"{WHITE,RIGHTIAUF DEM BODEN SIND 

ZWEI TOTE WAECHTER.“ <207> 

6520 PRINT"{WHITE,DOWN,RIGHTJDAS LASER-GIT 

TER VERSCHWINDET.EIN GE-" <069> 

6530 PRINT"{WHITE,DOWN,RIGHTIFANGENER KOMM 

T HERAUS UND FOLGT DIR." <177> 

6540 CX=1:CY=8 <227> 

6550 Z=0:GOSUB 2770 <130> 

6560 IF VA*="S”THEN BS=l:GOTO 5430 <251> 

6570 IF VA*="N"OR VA*="W"OR VA*="0"0R VA*= 

"RU“OR VA*="OB"THEN AN*="KEIN WEB":Z= 

1 <128> 

65B0 IF VA*="BEFRABE GEFANBENEN"THEN AN*=" 

WIEDERHOLE DEINE FRAGE SPAETER":Z=1 <080> 

6660 IF Z=0 THEN AN*="DAS HAT KEINEN SINN" <220> 
6670 GOSUB 2920:GOTO 6550 <021> 

6680 PRINT“<CLR>" <162> 

6690 PRINT"{LIG.GREEN,RIGHTIGEBEN SIE MIR 

DIE CODE-KARTE." <184> 

6700 CX=1:CY=3 <127> 


6710 GOSUB 2770 <173> 

6720 IF VA*="BEBE MAGNET-KARTE"THEN 6740 <129> 

6730 GOTO 5390 <190> 

6740 PRINT”{CLR>":POKE 53280,0:POKE 53281, 

0 <061> 

6750 PRINT"{LIG.GREEN,3D0WN,7RIGHT JHERZLIC 

HEN GLUECKWUNSCH ! <106> 

6760 PRINT“{LIG.GREEN,DOWN,RIGHT>DAS RAUMS 

CHIFF IST EXPLODIERT UND DU " <0B6> 

6770 PRINT"{LIG.GREEN,DOWN,RIGHT>BIST DURC 

H DIE DIMENSIONEN NACH HAUSE" <115> 

6780 PRINT"{LIG.GREEN,DOWN,RIGHTJGESCHLEUD 

ERT WORDEN." <182> 

6790 PRINT"{LIG.GREEN,3D0WN,2RIGHT >DAS ABE 

NTEUER IST UEBERSTANDEN !!" <168> 

6800 FOR 1=1 TO 7000:NEXT:CLR:GOTO 5 <076> 

10000 PRINT"{CLR}":POKE 53280,0:POKE 53281 

,0 <006> 

10010 PRINT“{YELLOW,5SPACEJHERRZLICH WILLK 

OMMEN BEI " <054> 

10030 PRINT <238> 

10040 PRINT"{YELLOW,5SPACE,RVSON,5SPACE>3< 

5SPACE >B£11SPACE >0{SPACE,RVOFF,7SPAC 

E>" <106> 

10050 PRINT"{5SPACE,RVSON,2SPACE>MH Gfifl<2S 
PACEJÜi. ügMTT't GXT'Gi. {SPACE, RVOFF , 8SPA 
CE>" <153> 

10060 PRINT"£5SPACE,RVSON,SPACEJHTTflE’H flü 

SHItH {2SPACE }- L£TflG'{SPACE , RVOFF , BSPA 
CE>" <067> 

10070 PRINT"{5SPACE,RVSON,5SPACE>T{5SPACE> 

T HT9SPACE >T{SPACE,RVOFF,8SPACE >“ <181> 

10080 PRINT“{RVOFF,18SPACE>fl{19SPACE>" <195> 

10090 PRINT”£17SPACEJHH{10SPACE>" <227> 

10100 PRINT“{18SPACE >T£9SPACE,RVOFF,SPACE > 

" <173> 

10110 PRINT"(YELLOW,2SPACE>RICHTUNGEN(3D): 

{8SPACE>WOERTER:" <123 > 

10120 PRINT"{YELLOW,19SPACEITJ ^£14SPACE>" <116> 

10130 PRINT"{YELLOW,6SPACEJOB{1lSPACEJ^ gN 

EHME H DRUECKE“ <077> 

101--. PRINT" {YELLOW,7SPACEJ- N£9SPACE}E 5G 

EBE{2SPACE>H ZERSTOERE" <087> 

10150 PRINT"{YELLOW,7SPACE>^ü£10SPACETT? BE 

EHE DURCH" <204> 

10160 PRINT" {YELLOW,4SPACE>W **.-i-*«n {8SPACE> 

G' gBEFRAGE" <009> 

10170 PRINT"{YELLOW,6SPACE>H = {11SPACE>^ ED 

EFFNE" <004> 

10180 PRINT"{YELLOW,5SPACE>S = {11SPACE>E H 

TOETE“ <112> 

10190 PRINT”{YELLOW,7SPACETRU{10SPACE>^ ES 

10200 PRINT" {Y <129> 

pppppppppp p pl> -p-p-p-p •' < 182> 

10210 PRINT <162> 

10220 PRINT“{YELLOW>EINGABEBEISPIEL: NEHME 

BILD" <136> 

10230 PRINT"£YELLOWJBEI DEN RICHTUNGEN WER 

DEN NUR DIE AN-" <126> 

10240 PRINT"{YELLOW>FANGSBUCHSTABEN EINGEG 

EBEN (S.SKIZZE)" <108> 

10245 PRINT"{30SPACE,YELLOW,RVSON>RETURN{R 

VOFF >"; <103> 

10250 GET A*:IF A*<>CHR*(13)THEN 10250 <225> 

10260 RETURN <202> 

11000 REM"ERKLAERUNG DER STEUERZEICHEN" <158> 
11010 REM"CLR -{SPACE,CLR}" <161> 

11020 REM-GRUEN -{SPACE,GREEN>" <214> 

11030 REM"GELB -{SPACE,YELLOW}" <249> 

11040 REM-BLAU -{SPACE,BLUE}" <110> 

11050 REM"WEIS -{SPACE,WHITE}“ <146> 

11060 REM"HELLBLAU -{SPACE,LIG.BLUE}“ <066> 

11070 REM"BRAUN -{SPACE,BROWN}" <118> 

11080 REM"HELLGRUEN -{SPACE,LIG.GREEN}" <178> 
11090 REM"GRAU -{SPACE,GREY 2}" <068> 

11100 REM"RUNTER -{SPACE,DOWN}" <120> 

11110 REM"RAUF -{SPACE,UP}" <080> 

11120 REM"LINKS -{SPACE,LEFT}” <185> 

11130 REM"RECHTS -{SPACE,RIGHT}" <139> 

11140 REM"HOME -{SPACE,HOME}" <235> 

11150 REM"REVERS ON -{SPACE,RVSON}" <063> 

11160 REM"REVERS OFF -{SPACE,RVOFF}" <007> 

6 64'er 
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Listings 


Crantor 


Crantor — 
Bedrohung 
aus dem All 

Hier müssen Sie sich auf die Reise 
durch das All begeben. Crantor ist ein 
Beispiel, wie man ein Geschicklich¬ 
keitsspiel mit einem Adventure verbin¬ 
den kann. 

Es geschah einst in ferner Zukunft, als ein garstiger Möchte¬ 
gern-Imperator namens Eusebius Crantor die Andromeda- 
Galaxis erobern wollte, indem er sämtliche Imbißstuben zer¬ 
stören ließ. Das hypergalaktische Imbißdepot beauftragte dar¬ 
aufhin den Jäger des verlorenen Hamburgers (den Spieler) 
den garstigen Imperator mitsamt seiner Wochenendbasis in 
handliche Einheiten zu zerlegen. 

Alsdann schwang sich unser Held in seine supramodeme 
Aegriventre-Untertasse, um Crantors Basis zu erreichen. 
Nach einer problematischen Landung gelangte der Jäger in 
das Innere der Basis. 

Dort mußte er sich gegen Eusebius Crantor und dessen Wa¬ 
chen, den Crames, zur Wehr setzen. 

Nachdem er, unter mannigfachen Problemen leidend, zur 
Energiezentrale der Basis vorgedrungen war, und dort eine 
Sprengladung mit Zeitzünder angebracht hatte, eilte er in Win¬ 
deseile zu seinem U-Boot, um die Explosion der Basis aus der 
sicheren Entfernung einer Pommesbude am Rande der vierten 
Astralaxe mitsamt einem Hamburger zwischen den Zähnen zu 
betrachten. 

Die Befehle mit denen unser Held geleitet wird, werden wie 
üblich in zwei Worten eingegeben: 

Zum Beispiel »NIMM SCHWERT«, »TOETE CRANTOR« oder 
»LIST« (gibt eine Liste aller Gegenstände aus, die der Jäger ge¬ 
rade besitzt). 

Mit »SAVE« und »LOAD« kann eine Spielsituation gespei¬ 
chert, beziehungsweise wieder geladen werden. 

Die Aegriventre-Untertasse wird durch einen Joystick an 
Control-Port 1 gesteuert. 

(Andreas Lüning/rg) 


Wortschatz 


Einwortbefehle: 

ENDE/QUIT 

beendet das laufende Programm 

SAVE 

speichert eine Spielsituation 

LOAD 

lädt eine alte Spielsituation 

BETE/PRAY 

kurzes Stoßgebet 

LIST 

gibt eine Liste aller Gegenstände, die der 

ZEIT/TIME 

Spieler hat, auf den Bildschirm aus 

Blick auf die Uhr (eventuell Countdown) 

Zweiwort befehle: 

NIMM/GET 

nimmt einen Gegenstand 

VERUERE/DROP 

läßt einen Gegenstand fallen 

ZERSTÖRE/DESTROY 

kann die Energie-Zentrale zerstören 

LADE/FÜLLE/FILL 

lädt das Schiff mit Uran 

TÖTE/KILL 

tötet Crames/verjagt Crantor 

ÖFFNE/OPEN 

kann Türen öffnen 

BENÜTZE 

... den Computer (negative Aktion) 
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Variablenliste von »Crantor« 


SR (=50168) 

Anfangsadresse der Sprite-Vektoren 

V (=53248) 

VIC-Basisadresse 

S1 (=54272) 

SID-Basisadresse 

S2/S3 

Basisadresse der Oszillatoren 2 und 3 

PX/PY/PZ 

Position des Spielers innerhalb der Basis 

HN 

Anzahl der Gegenstände die der Spieler in den 
Händen hält (maximal 5). 

HA 

bitweises Verzeichnis dieser Gegenstände 

IM/SO 

0 = niemand sonst im Raum 

1 = Crantor/Crame anwesend 

CO 

0 = Bombe noch nicht scharf 

1 = Bombe scharf, Countdown (45 Sekunden) 
beginnt 

RE 

0 = Schiff nicht startfähig 

1 = Schiff wurde mit Uran beladen 

K$ 

Kommentar / Fehler / Befehl 

R$ 

Richtungsstring 

T1/T2 

Wellenformen für Trauermusik 

TE/TT 

Zeitkonstanten der Eröffnungsmelodie 

Felder und Arrays: 

Fl (2,5,4) 

unbewegliches Labyrinth der Basis 

(bitweise) 

2 Stockwerke 

5 Räume waagerecht 

4 Räume senkrecht 

F2 (2,3,4) 

Verzeichnis der Gegenstände im Labyrinth 
(bitweise) 

S$ (15) 

Verzeichnis aller Gegenstände 

V$ (10) 

Verzeichnis aller Verben 

TH/TL (14) 

Trauermusikfrequenz (High/Low) 

FH/FL(7) 

Baßbegleitung dazu (High/Low) 

H (3,140) 

dreistimmige Eröffnungsmelodie (High) 

L (3,140) 

Low-Byte dazu 


Beaeutung der Bits in Fl, F2 und HA 


Fl: (unbewegliches Labyrinth) 


Bit 

Bedeutung 

0 

Gang nach Norden 

1 

Gang nach Westen 

2 

Gang nach Süden 

3 

Gang nach Osten 

4 

Tür (geschlossen) nach Norden 

5 

Tür (geschlossen) nach Westen 

6 

Tür (geschlossen) nach Süden 

7 

Tür (geschlossen) nach Osten 

8 

Crame ist im Raum 

9 

Crantor ist im Raum 

10 

Fahrstuhl 

11 

Energiezentrale 

12 

Computer 

F2 und HA: (Gegenstände) 

Bit 

Bedeutung 

0 

Outdoor-Card 

1 

Indoor-Card 

2 

Bombe 

3 

Zünder 

4 

Schwert 

5 

Strahlenanzug 

6 

Raumanzug 

7 

O-Tank 

8 

Uran 

Speicherbelegung von »Crantor« 

Verteilung des Speichers ab SC000 

cOOO 

- c3ff Bildschirmspeicher 

c800 

- cbcO Sprite Datenblock 1 

ccOO 

- ceOO Sprite Datenblock 2 

eOOO 

- fOOO neuer Zeichensatz 


















Crantor 


Listings 


Programmbeschreibung 


100 — 340 
350- 
360- 410 
420 — 1140 
1150 — 1780 
1790 — 1940 
1950 —2170 
2180 - 2310 
2320 — 2380 
2390 - 3630 
3640 — 3770 
3780 - 3900 
3910 - 3939 
3940 - 4020 
4030 — 4190 
4200 — 4340 
4350 - 5170 
5180 - 5370 
5380 — 5490 
5500 — 6300 
6310 — 6400 
6410 - 6670 
6680 — 8340 
8350 — 8470 
8480 — 9050 
9060 - 9170 

(U) = 


Initialisierung, Einlesen der DATA-Statements 

Start des Hauptprogramms 

Geräuschroutinen anspringen 

Raum mit Türen, Gegnern und sonstigem aufbauen 

Gegenstände (Sprites) in den Raum stellen 

Eingabe eines Kommandos von der Tastatur 

in eine Richtung gehen 

Meldungen von »verzeihlichen« Fehlem 

Einwortbefehle ausführen 

Zweiwortbefehle ausführen 

Speicherung der momentanen Spielsituation 

Laden einer alten Spielsituation 

Legitimität eines Starts prüfen 

Aufbau eines Sternenhimmels (U) 

Ablauf des Schluß-Films (Zerstörung der Basis) 
Darstellung des fliegenden Raumschiffs 
Vorspann des Programms (U) 

Funkspruch Crantors (Kriegserklärung) 
Zeichenausgabe des Funkspruchs (U) 

Geräusche und Musik (U) 

DATA-Statements für das Labyrinth 
Meldungen von »tödlichen« Fehlern 
DATA-Statements für Sprites/Text/Musik 
Einlesen der Musik-DÄTAs 
DATA-Statements für Sprites 
Definition eines neuen Zeichensatzes 
(mit »äöüß«) (U) 

Unterprogramm 


Listing »Crantor«. Beachten Sie beim Eintippen bitte 
den Checksummer. 


100 T1=65:T2=65:TE=25:TT=18 <204> 

110 RESTORE:SR=50168 <143> 

120 V=53248:S1=54272s S2=S1+7:S3=S2+7 <16B> 

130 IF RU=0 THEN DIM 8$(15),V*(10),F1<2,5, 

4),F2(2,5,4),TH<14),TL<14),FH<7>,FL<7> <360> 
140 IF RU=0 THEN DEF FN R<X)=INT(RND<1)*X> 

+1:DIM H(3,140),L(3,140) <091> 

150 POKE 53280,6:POKE 53281,6:PRINT"{CLR,Y 

ELLOWi" <015> 

160 POKE V+21,0rPOKE S1+4,0:POKE S2+4,0:PO 

KE S3+4,0 <166> 

170 PRINT TAB(9)"{DOWNJDIE SAGA V0NC2SPACE 

}'CRANTOR'" <229> 

180 PRINT"C5D0WN,CTRL-H,6SPACE,RVSON,2SPAC 
EJBITTE EINEN MOMENT GEDULDtSPACE,RVOF 
F>":REM CTRL 'H' <146> 

190 PRINT"{6SPACE,RVSON,3SPACEJDATEN WERDE 

N EINGELESEN L2SPACE,RVOFF >“ <079> 

200 PRINT“f3D0WN,8SPACE >WRITTEN INC5SPACEJ 

MAERZ 1984 <207> 

210 PRINT"<2D0WN,8SPACE>ANIMATI0N:C3SPACEJ 

REALISATION:“ <032> 

220 PRINT"{DOWN,8SPACE>JANC2SPACE>JENS C6SP 

ACE>ANDREAS" <209> 

230 PRINT"{8SPACE JMUENTINGA{6SPACE >LUENING 

" <125> 

240 POKE Sl+24,31:RESTORE:FOR Z=1 TO 2:F0R 

Y=1 TO 4: FOR X=1 TO 5 <221> 

250 READ Fl<Z,X,Y):NEXT:NEXTsNEXT <224> 

260 FOR Z=1 TO 2sFOR Y=1 TO 4:FOR X=1 TO 5 <055> 

270 READ F2(Z,X,Y):NEXTsNEXT:NEXT <246> 

280 IF RU=1 THEN 340 <108> 

290 FOR 1=51200 TO 52160:READ AsPOKE I,A:N 

EXT <126> 

300 FOR 1=1 TO 15:READ S*<I):NEXT:FOR 1=1 

TO 10:READ V*(I):NEXT <239> 

310 FOR 1=1 TO 14:READ TH<I):READ TL<I):NE 

XT <155> 

320 FOR 1=1 TO 7:READ FH<I):READ FL(I):NEX 

TsGOSUB 8350 <242> 

330 FOR 1=52224 TO 52736:READ AsPOKE I,A:N 

EXT:GOSUB 9060 <076> 

340 GOSUB 4350:PRINT"{CLR>";:POKE 53280,6: 

POKE 53281,6 <254> 

350 PZ=1:PX=4:PY=4:POKE 198,0:TI*="000000" <093> 
360 PRINT"{YELLOWJ"; <031> 

370 IF PZ>2 THEN 6570 <004> 

380 IF PZ<1 THEN 6610 <010> 

390 IF K*="U"OR K*="H"THEN GOSUB 5970:GOTO 

420 <139> 


400 IF K*="D"OR K*="R"THEN GOSUB 6030:GOTO 


420 

410 GOSUB 5500 

420 L=0:WE=0:PRINT"<CLR>";:F1=F1<PZ,PX,PY) 
:F2=F2(PZ,PX,PY>:POKE V+21,0 
430 IF Fl< >0 THEN 520 

440 IF PZ=1 AND PX=5 AND PY=4 THEN K*="DU 
BIST BEIM SCHIFF!":R*="":GOTO 540 
450 POKE 53281,0:FOR 1 = 1 TO 20:PRINT TAB <R 
ND<1)*39)“<WHITE>.":NEXT:PRINT"{YELLOW 
>"; 

460 K*="DU BIST AUSSERHALB DER BASIS GELAN 
DET." 

470 IF (HA AND 64)064 THEN 6450 
480 IF (HA AND 128)0128 THEN 6420 
490 WE=1: IF (Fl (PZ ,PX,PY+1) AND 1)01 THEN W 
E=0 

500 K*=K*+CHR*<13)+"{2SPACE1EINE TUER FUEH 
RT NACH SUEDEN." 

510 R*="—H—R":GOTO 1140 
520 R*="":K*="":POKE 53281,6 
530 IF PZ=1 AND PX=5 AND PY=4 THEN K»="DU 
BIST BEI DEINEM SCHIFFR*="":GOTO 54 
0 

540 FOR 1=1 TO 4:PRINT TAB(I)“fl"SPC<3B—2*1 
)"fl":NEXT 

550 PRINT TAB <I)"oYYYVYYYYYYYVVYYYYYYYYYW 
YYYYE" 

560 FOR 1=1 TO 10:PRINT TAB(5)"SfSPC(28)"W 
":NEXT 

570 PRINT TAB (5) "i.pT'p'P'PWpVp'p'PP'P'P'pWpVpVpV 
PPPPS" 

580 FOR 1=4 TO 1 STEP-lcPRINT TAB(I>"fl"SPC 
(38-2*1)"fl":NEXT 

590 FOR Q=0 TO 12:IF(F1 AND(2tQ))<>2TQ THE 
N 610 

600 ON Q+l GOSUB 620,690,730,740,780,810,8 
50,860,900,930,970,990,1100 
610 NEXT □:GOTO 1140 
620 PRINT"{HOME,6D0WN>";:R*=RS+"-N" 

630 PRINT, " { 6 SPACE>' p ' p - pVp - p - p ' p - 
640 r-rINT,"{5SPACE>Hfl{ 6 SPACE>HH" 

650 PRINT, "{5SPACEJH DYTWf, R“ 

660 FOR 1 = 1 TO 6 :PRINT,"{5SPACE >R RI4SPACE 
>W R": NEXT 

670 PRINT, " <5RIGHT>Bfl{6SPACE>flL." 

680 RETURN 

690 PRINT"{HOME,5D0WN >";:R*=RS+" - W “ 

700 PRINT" UH":PRINT" R fl":PRINT" RY£" 

710 FOR 1=1 TO 8 :PRINT" R R":NEXT 
720 PRINT" R R"SPRINT" RW":PRINT" R{2SPAC 
E>":RETURN 

730 R$=R*+"-S":RETURN 

740 PRINT"{HOME,4D0WN>":R*=R*+"-O" 

750 PRINT TAB(36)" HR"SPRINT TAB(36)"fl H": 
PRINT TAB(36)"flYR“ 

760 FOR 1=1 TO 9:PRINT TAB(36)"R R": NEXT 
770 PRINT TAB (36) "WH”SPRINT TAB (36) " C2SPA 
CE>R": RETURN 
780 GOSUB 620 
790 PRINT"{HOME,BDOWNJ "5 

800 FOR 1=1 TO 7:PRINT,"{7RIGHT,RVSON, 6 SPA 
CE,RVOFF >":NEXT:RETURN 
810 PRINT"{HOME,5D0WN>"}:R*=R*+"-W" 

820 PRINT" R{RVSON>¥"SPRINT" RIRVSON,SPACE 
>5":PRINT" R{RVSON,2SPACE}“ 

830 FOR 1 = 1 TO BsPRINT" R{RVSON,2SPACE>"|N 
EXT 

840 PRINT" R{RVSON,2SPACE>“:PRINT" R{RVSON 
,SPACE,RVOFF>£":PRINT" R£":RETURN 
850 R*=R*+{RVSON>S{RVOFF >": RETURN 
860 PRINT"{HOME,4D0WN >":R*=R*+"-O“ 

870 PRINT TAB(36)"{SPACE,RVSON>£{RVOFF>R": 

PRINT TAB(36)“{RVSON}£{SPACE,RVOFF }R" 
880 FOR 1=1 TO 10:PRINT TAB(36)"{RVSON,2SP 
ACE,RVOFF}R":NEXT 

890 PRINT TAB<36>"S{RVSON,SPACE,RVOFF>R":P 
RINT TAB(36)" ¥R":RETURN 
900 POKE SR,38:POKE SR+1,39:POKE V,230:POK 
E V+l,100:POKE V+2,230:POKE V+3,142 
910 POKE V+23,3:POKE V+29,3:P0KE V+39,l:PO 
KE V+40,1:POKE V+21,3 
920 POKE V+23,3:POKE V+29,3:S0=1:RETURN 
930 POKE SR,40:POKE SR+1,41:POKE V,90:POKE 
V+l,100:POKE V+2,90:POKE V+3,142 
940 POKE V+39,0:POKE V+40,0:POKE V+21,3 
950 POKE V+23,3:POKE V+29,3:IM=1 


< 130> 
<242> 

<254> 

< 131 > 

<023> 


< 189> 

< 166> 
< 153> 
< 002 > 


<016> 


< 212 > 

<232> 

<075> 


<215> 
< 118> 
<1B9> 

< 147> 

< 196> 
<035> 

< 156> 

<204> 

< 192> 
<064> 
<249> 

< 132> 
< 110 > 

<216> 
<091 > 
<056> 
<126> 
<232> 

< 120 > 

< 187> 

< 176> 
<092> 

<2I6> 
<244 > 

<001 > 

<052> 

<204> 

<193> 

<247> 

<052> 

<089> 

<036> 

<205> 

<213> 

<201 > 

< 133> 

< 109> 

< 117> 

<070> 

<024> 

<045> 

<050> 

<098> 
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Listings 


Crantor 


Listing »Crantor« (Fortsetzung) 

960 PRINT"tHOME,7DOWN,10RIGHT,RVSON.WHITE, 

3SPACE, DOWN , 3LEFT , 2SPACE , RVOFF, YELLOW > 

RETURN <126> 

970 K*="DU BIST IM LIFT.":R*=R*+“-H-R":L=1 <019> 
980 PRINT"£HOME,7DOWN>"TAB(26)"üifDOWN,2LE 

FT>=tD0WN,2LEFT>ÜS.":RETURN <001> 

990 K*="DU HAST DIE ENERGIE ZENTRALE ERREI 

CHT.":PRINT"tHOME,4D0WN >“ <055> 

1000 PRINT TAB <6)"flYYYYYYYVYYYYYYYYYYYYYYY 

VW£“ <255> 

1010 PRINT TAB (6 ) "TTflYYYY£t2SPACE>fl7Y7Y£<2S 

PACE >fl7W7WW£W" < 127> 

1020 PRINT TAB(6) "T?T?t4SPACE>TJt2SPACE}f?t4SP 

ACE>Rt2SPACE>R<8SPACE>TTO" <086> 

1030 PRINT TAB(6) "TTRt4SPACE>Wt2SPACE>'Rt4SP 

ACE>W£2SPACE>H<BSPACE>Vnj" <097> 

1040 PRINT TAB (6) ”Ki.'PWPß<2SPACE> L.-p-p'p'pg<2S 

PACE>ff Zt6SPACE>ffff" <013> 

1050 PRINT TAB (6) "HtQRANGE>aflflt5SPACE>BQ-Bt 

YELLOW,5SPACE>HtBSPACE >ffff" <190 > 

1060 PRINT TAB(6)"fft8SPACE>Ht7SPACE>fftBSPA 

CEJUR" <154> 

1070 PRINT TAB (6) "HCl6SPACE> JJ Wp ' p ' p ' pV Bff “ <109> 

1080 PRINT TAB(6) "i.-pppp'p'p'p'p'p'p'p'pvp'p'p'p'p'p'p’p'p'p' 

?T?EtYELLOW>" <005> 

1090 RETURN <212> 

1100 K*="DA IST KEIN C64 SONDERN EIN COMPU 

TER" <098> 

1110 PRINT" tHOME,7D0WN>"TAB (26) "flYYYTY.E." <107> 
1120 PRINT TAB (26) "ffS£t2SPACE}aff": PRINT TA 
B(26)“Hi£ BÄH":PRINT TAB(26)"fft3SPACE 

ff" <101> 

1130 PRINT TAB (26) "i.’rpTpTB": RETURN <056> 

1140 PRINT"tHOME,2RIGHT>"K*:K*="" <176> 

1150 FOR 0=0 TO 8:IF(F2 AND(2TQ))<>(2TQ)TH 

EN 1170 <039> 

1160 ON 0+1 GOSUB 1190,1260,1320,1350,1390 

,1470,1550,1630,1710 <080> 

1170 NEXT O <105> 

1180 GOTO 1790 <250> 

1190 K*=K*+" OUTDOOR-CARD" ( <155> 

1200 POKE SR,35s POKE V+39,10 <078> 

1210 POKE V,95:POKE V+l,180 <012> 

1220 POKE V+23,PEEK(V+23)AND 254 <17B> 

1230 POKE V+29,PEEK(V+29)AND 254 <200> 

1240 POKE V+21,PEEK(V+21)OR 1:RETURN <033> 

1250 RETURN <116> 

1260 KS=K*+“ INDOOR-CARD" <12B> 

1270 POKE SR+1,35:POKE V+40,0 <054> 

1280 POKE V+2,110:POKE V+3,195 <091> 

1290 POKE V+23,PEEK(V+23)AND 253 <248> 

1300 POKE V+29,PEEK(V+29)AND 253 <014> 

1310 POKE V+21,PEEK(V+2l)OR 2:RETURN <105> 

1320 PRINT"tHOME,16D0WN1":REM 16 <093> 

1330 PRINT TAB(30)“aEtD0WN,2LEFT>i£" <179> 

1340 K*=K*+“ BOMBE”:RETURN <236> 

1350 PRINT"tHOME,16D0WN>":REM 16 <123> 

1360 PRINT TAB(10)"tGREY 2,RVSON>ÜUUtRVOFF 

>£££YELLOW>“ <237> 

1370 K*=KS+" ZUENDER" <250> 

13B0 RETURN <247> 

1390 K*=K*+“ SCHWERT“ <017> 

1400 POKE SR+2,34 <040> 

1410 POKE V+16,4 <229> 

1420 POKE V+4,35:P0KE V+5,150 <1B4> 

1430 POKE V+23,PEEK(V+23)OR 4 <031> 

1440 POKE V+29,PEEK(V+29)OR 4 <053> 

1450 POKE V+21,PEEK(V+2l)OR 4 <047> 

1460 POKE V+41,3:RETURN <220> 

1470 K*=K*+" STRAHLENANZUG" <039> 

1480 POKE SR+3,32:POKE SR+4,33 <093> 

1490 POKE V+6,230:POKE V+7,105:POKE V+8,23 

0:POKE V+9,145 <201> 

1500 POKE V+23,PEEK(V+23)OR 24 <151> 

1510 POKE V+29,PEEK(V+29>0R 24 <173> 

1520 POKE V+21,PEEK(V+2l)OR 24 <167> 

1530 POKE V+42,7:POKE V+43,7 <250> 

1540 RETURN <152> 

1550 K*=K*+" RAUMANZUG" <076> 

1560 POKE SR+3,32:POKE SR+4,33 <174> 

1570 POKE V+6,230:POKE V+7,105:POKE V+8,23 

0:POKE V+9,145 <026> 

1580 POKE V+23,PEEK(V+23)0R 24 <232> 

1590 POKE V+29,PEEK(V+29)OR 24 <254> 

1600 POKE V+21,PEEK(V+21>0R 24 <248> 

1610 POKE V+42,8:POKE V+43,B <077> 


1620 RETURN <232> 

1630 K*=K*+" O-TANK" <140> 

1640 POKE SR+5,36 <030> 

1650 POKE V+10,255:POKE V+11,150 <045> 

1660 POKE V+23,PEEK(V+23)OR 32 <055> 

1670 POKE V+29,PEEK(V+29)0R 32 <077> 

1680 POKE V+21,PEEK(V+21>0R 32 <071> 

1690 POKE V+44,14 <048> 

1700 RETURN <056> 

1710 K*=K*+" URAN" <104> 

1720 POKE SR+6,37 <112> 

1730 POKE V+12,150:POKE V+13,175 <130> 

1740 POKE V+23,PEEK(V+23)OR 64 <140> 

1750 POKE V+29,PEEK(V+29)OR 64 <162> 

1760 POKE V+21,PEEK(V+2l)OR 64 <156> 

1770 POKE V+45,7 <083> 

1780 RETURN <136> 

1790 PRINT"tHOME,DOWN,3RIBHTJ"K$:K*="":T=0 <21B> 
1800 F2=F2(PZ,PX,PY) <085> 

1B10 IF (HA AND 32)032 AND( ( (F2(PZ,PX,PY) A 
ND 256)=256)OR((HA AND 256)=256))THEN 
6510 <157> 

1820 IF IM=1 THEN ZE=ZE+1:IF ZE=2 THEN 652 

0 <085> 

1830 IF S0=1 THEN ZE=ZE+1:IF ZE=2 THEN 652 

0 <107> 

1B40 IF PZ=1 AND PX=1 AND PY=3 THEN 6610 <05B> 

1850 PRINT"tHOME,21DOWNJ" 5 :REM 21 <253> 

1860 PRINT R* <090> 

1870 PRINT":t22SPACE,22LEFT>";:REM 22 < 082 > 

1880 GET AS:T=T+1:IF CO=l AND TI-TS>4500 T 

HEN 6410 <152> 

1890 IF(IM=1 OR S0=1)AND(T>450)THEN 6520 <005> 

1900 IF M =""THEN 1880 <209> 

1910 IF A*«=CHR*(13)THEN 1950 <017> 

1920 IF A*=CHR*(20)AND K*<>""THEN K*=LEFT* 

(K*,LEN(K* >-1>:PRINT"tLEFT,SPACE,LEFT 
>" 5 :GOTO 1880 <100> 

1930 K*=K*+A*SPRINT AS; <163> 

1940 GOTO 1880 <245> 

1950 IF LEN(K*)>1 THEN 2320 <003> 

lTiT FOR 1=1 TO 9:IF K*=MID*("NWSOHREUD",I 

,1)THEN 1980 <136> 

1970 NEXT:GOTO 2220 <196> 

1980 ON I GOTO 1990,2020,2050,2090,2120,21 

50,2090,2120,2150 <148> 

1990 IF(Fl AND 1)=1 THEN PY=PY-l:GOTO 370 <199> 

2000 IF (Fl AND 16)016 THEN 2180 <125> 

2010 GOTO 2200 <046> 

2020 IF(Fl AND 2)=2 THEN PX=PX-l:GOTO 370 <229> 

2030 IF (Fl AND 32)032 THEN 2180 <151> 

2040 GOTO 2200 <076> 

2050 IF(Fl AND 4)=4 THEN PY=PY+l:GOTO 370 <009> 

2060 IF WE=1 THEN PY=PY+1:G0T0 370 <001> 

2070 IF((Fl AND 64)<>64>AND WE=1 THEN 2180 <073> 

2080 GOTO 2200 <0B5> 

2090 IF(Fl AND 8)=8 THEN PX=PX+l:GOTO 370 <055> 

2100 IF (Fl AND 128)0128 THEN 2180 <074> 

2110 GOTO 2200 <147> 

2120 IF ( (Fl AND 1024) 01024) AND F1O0 THEN 

2200 <186> 

2130 PZ=PZ+1 <059> 

2140 GOTO 370 <135> 

2150 IF( (Fl AND 1024) 01024) AND F1O0 THEN 

2200 <216> 

2160 PZ=PZ-1 <090> 

2170 GOTO 370 <165> 

2180 Kt="WAS IST?!“ <044> 

2190 GOTO 1790 <240> 

2200 K*="DIE TUER IST ZUi" <215> 

2210 GOTO 1790 <004> 

2220 K*="WAS SOLL DENN DAS HEISSEN?” <137> 

2230 GOTO 1790 <024> 

2240 K*="WITZBOLD!" <1B9> 

2250 GOTO 1790 <044> 

2260 K*=S*+"- SEH ICH NICHT!" <218> 

2270 GOTO 1790 <064> 

2280 K*="MEHR KANNST DU(!> NICHT TRAGEN." <192> 
2290 GOTO 1790 <084> 

2300 K*="DAS HAST DU NICHT IN DER HAND." <059> 

2310 GOTO 1790 <105> 

2320 IF K*="ENDE"OR K*="QUIT"THEN END <164> 

2330 IF K*=“SAVE"THEN 3640 <182> 

2340 IF K*=“LOAD"THEN 3780 <182> 

2350 IF K*=“BETE"OR K*="PRAY”THEN 3490 <015> 

2360 IF K*="LIST“THEN 3510 <221> 

2370 IF K*=“ZEIT"OR K*="TIME"THEN 3560 <048> 
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Listings 


2380 IF K*="START“OR K*="STARTE"THEN 3910 
2390 FÜR 1 = 1 TD LEN(K*):IF MID* (K*, I , 1) =•■ 
“THEN 2410 
2400 NEXT3 GOTO 2220 

2410 V*=LEFT*(K*,I-1) :S*=RIGHT*(K*,LEN<K*> 
— I)s GOSUB 2630 

2420 FOR 1=1 TO 10:IF V*=V*(I)THEN 2440 
2430 NEXT:GOTO 2220 

2440 VE=I:FOR 1=0 TO 14:IF S*=S*(1+1)THEN 
2460 

2450 NEXT:GOTO 2220 
2460 S=I 

2470 ON VE GOTO 2490,2490,25B0,25B0,2680,2 
B50,2890,3060,3430,3490 
2480 GOTO 2220 

2490 IF(F2 AND(2tS)><>(2fS)THEN 2260 

2500 IF HN=5 THEN 2280 

2510 IF S=9 OR S=10 THEN 2240 

2520 IF S=12 OR S=13 THEN 2240 

2530 IF S=ll THEN 2280 

2540 HN=HN+1 

2550 HA=HA 0R(2TS> 

2560 F2(PZ,PX,PY> =F2—(2tS) 

2570 GOSUB 5870:GOTO 420 

2580 IF(HA AND(2TS))< ><2tS)THEN 2300 

2590 HN=HN—1 

2600 HA=HA—(2tS) 

2610 F2 (PZ,PX,PY)=F2 0R<2TS) 

2620 GOSUB 5B70:GOTO 420 
2630 IF V*="DESTROY"THEN V*="ZERSTOERE" 
2640 IF V*="FILL"OR V*="FUELLE"THEN V*="LA 
DE” 

2650 IF V*=“KILL"THEN V*="TOETE“ 

2660 IF V*="OPEN“THEN V*="OEFFNE" 

2670 RETURN 

2680 IF S=12 THEN 2750 

2690 IF S=9 OR S=10 THEN 2890 

2700 IF(HA AND(2tS)>=<2TS>THEN 2730 

2710 K*=“DU HASTS' NICHT IN DER HAND." 

2720 GOTO 1790 

2730 HA=HA—< 2 TS):K*="OK. “ 

2740 GOSUB 5870: GOTO 1790 
2750 PRINT"THOME,21DOWNREM 21 
2760 IF PZ<>2 OR PXOl OR PY<>3 THEN 2B30 
2770 PRINT"HAST DU DEN ZUENDER";:INPUT A* 
2780 IF A*O"J"0R( (HA AND B) < > 8 ) THEN 2840 
2790 PRINT" «JPJIST DIE BOMBE DA:£8SPACE,9L 
EFT>";:INPUT A*:REM 9 
2800 IF A*O"J"0R( (HA AND 4><>4>THEN 2840 
2810 CO=1: HN=HN—2:HA=HA—12 

2820 K*="COUNTDOWN BEGINNT<4SPACE>: 45 SEC 
.":TS=TI:GOTO 1790 
2830 K*=S*+"-WO IST DAS":GOTO 1790 
2840 K*="ZERSOERUNG UNMOEGLICH!":GOTO 1790 
2850 IF S< >14 THEN K*="SCHOENES WETTER HEU 
TE, NICHT?!":GOTO 1790 
2860 IF PZOl OR PX< >5 OR PY<>4 THEN K*="H 
IER IST KEIN SCHIFF":GOTO 1790 
2870 IF (HA AND 256)0256 THEN K*=“DU BRAUC 
HST DAZU URAN.":GOTO 1790 
2BB0 RE=I:HN=HN—1:HA=HA-256:K*="GELADEN":G 
OSUB 5870:GOTO 1790 
2890 IF S=9 THEN 2930 
2900 IF S=10 THEN 2970 
2910 IF(HA AND(2TS)> < >2fS THEN 2300 
2920 FOR Z=1 TO 2:FOR X=1 TO 5:FOR Y=1 TO 
4 

2930 IF (Fl AND 256)0256 THEN 2260 
2940 IF (HA AND 16)016 THEN 3050 
2950 Fl(PZ,PX,PY)=F1—256 
2960 SO=0:ZE=0:GOSUB 5600:GOTO 420 
2970 IF (Fl AND 512)0512 THEN 2260 
2980 IF (HA AND 16)016 THEN 3050 
2990 Fl(PZ,PX,PY)=F1—512 
3000 Z=FN R(2):X=FN R(4):Y=FN R(4) 

3010 IF(F2(Z,X,Y)<>0)OR((Fl(Z,X,Y>AND 256) 
=256)THEN 3000 

3020 POKE V+21,0:K*=“SO KANNST DU IHN NICH 
T TOETEN!" 

3030 PRINT"CHOME,7D0WN,10RIGHT,4SPACE,DOWN 
,4LEFT,4SPACE >" 

3040 GOSUB 5810:Fl(Z,X,Y)=F1(Z,X,Y)OR 512: 
IM=0:ZE=0:GOTO 1790 

3050 K*="DU KANNST IHN NICHT TOETEN!":GOTO 
1790 

3060 IF SO 13 THEN 3420 
3070 IF PYO0 THEN 3100 


<047> 

3080 

3090 

< 1B4> 

< 116> 

3100 

3110 

< 153> 

3120 

< 165> 

3130 

<146> 

3140 

<099> 

3150 

< 166> 

3160 

<243> 

3170 

<001 > 

<008> 

3180 

<163> 

3190 

<072> 

3200 

<037> 

3210 

<092> 

3220 

<080> 

3230 

< 174> 

3240 

<247> 

3250 

< 127> 
<206> 

3260 

<010> 

3270 

<226> 

3280 

<037> 

3290 

< 182> 

3300 

<000> 

<079> 

3310 

3320 

< 134> 

3330 

<035> 

3340 

<101> 

3350 

<006> 

3360 

<234> 

3370 

<229> 

3380 

<215> 

3390 

<121 > 

3400 

<004> 

<014> 

3410 

< 179> 

3420 

<132> 

<238> 

<213> 

3430 

< 155> 

3440 

<042> 

3450 

< 167> 

3460 

< 122> 

3470 

3480 

< 172> 
<206> 

3490 

<060> 

3500 

<036> 

3510 

< 117> 

3520 

<032> 

3530 

3540 

< 189> 

3550 

< 147> 
<201 > 

3560 

<004> 

3570 

3580 

< 165> 

3590 

< 142> 

3600 

<060> 

3610 

<029> 

3620 

< 197> 

3630 

< 172> 

3640 

<100> 

3650 

<064> 

<202> 

3660 

3670 

<235> 

3680 

3690 

<027> 

3700 

<239> 

3720 

<209> 

3730 

< 155> 

3740 

<021 > 

3750 

<060> 

3760 


IF (HA AND 1)01 THEN 2020 
Fl(PZ,PX,PY+1)=(F1(PZ,PX,PY+1)—16)OR 
1:GOSUB 5560:GOTO 420 
ON PZ GOTO 3110,3190,3360 
IF PX<>2 OR PYOl THEN 3150 
IF(F1(PZ,PX,PY>AND 16)016 THEN 2260 
IF (HA AND 1)01 THEN 2020 
Fl(PZ,PX,PY) = (Fl(PZ,PX,PY)—16)OR 1: GO 
SUB 5560:GOTO 420 
IF PX<>3 OR PY<>2 THEN 2260 
IF (Fl (PZ ,PX ,PY> AND 128)0128 THEN 226 
0 

IF (HA AND 2)02 THEN 2020 

Fl(PZ,PX,PY> = (Fl —128)OR 8 :GOSUB 5560: 

GOTO 420 

IF PX=1 AND PY=1 THEN 3240 
IF PX=1 AND PY=2 THEN 3280 
IF PX=2 AND PY=1 THEN 3320 
GOTO 2260 

K*="DA IST KEINE TUER.":GOTO 1790 
IF (Fl (PZ ,PX ,PY) AND 64)064 THEN 2260 
IF (HA AND 2)02 THEN 2020 
Fl(PZ,PX,PY)=(F1-64)0R 4:F1(PZ,PX,PY+ 
1)=(F1(PZ,PX,PY+l)-16)OR 1 
GOSUB 5560:GOTO 420 

IF(F1 (PZ,PX,PY>AND 16)016 THEN 2260 

IF (HA AND 2)02 THEN 2020 

Fl(PZ,PX,PY> = (Fl—16)OR 1:Fl(PZ,PX,PY- 

1)=(F1(PZ,PX,PY—1>—64)OR 4 

GOSUB 5560:GOTO 420 

IF (HA AND 1)01 THEN 2180 

IF (Fl AND 16)016 THEN 2260 

Fl(PZ,PX,PY)=(F1—16)OR 1 

GOSUB 5560:GOTO 420 

IF PX=2 AND PY=1 THEN 3390 

IF PX=4 AND PY=3 THEN 2020 

GOTO 2260 

IF (Fl (PZ ,PX ,PY) AND 16)016 THEN 2260 

IF (HA AND 1)01 THEN 2020 

FOR Z=1 TO 2:FOR X=1 TO 5:FOR Y=1 TO 

4 

K*="DAS KANNST DU NICHT OEFFNEN":GOTO 
1790 

IF SOll THEN K*="WAAAS!!??":GOTO 179 

0 

IF PZ<>2 OR PX<>3 OR PYOl THEN KS="W 
O SIEST DU EINEN COMPUTER":GOTO 1790 
ON FN R(3)GOTO 3460,3470,3480 
GOTO 6410 

F2(PZ,PX,PY)=HA:HA=0:GOTO 420 

Fl(PZ,PX,PY)=F1(PZ,PX,PY)OR 768:GOTO 

420 

K*="EINE STIMME SAGT DIR: DIR WERDEN£ 
9RIGHT>ALLE SUENDEN VERGEBEN!" 

GOTO 1790 

PRINT"<CLR,2DOWN,3RIGHT >DU HAELST MOM 
ENTAN:£DOWN>" 

FOR 1=0 TO 8 :IF(HA AND(2TI))O(2TI>TH 
EN 3540 

PRINT"£3RIGHT >"S*(1 + 1) 

NEXT:K*=”“ 

GOTO 1790 

K*=”ZEIT= "+LEFT*(TI*,2)+":"+MID*(TI* 
,3,2)+“:"+RIGHT*(TI*,2) 

IF CO=0 THEN 1790 

K*=K*+" f2SPACE >— £2SPACE >COUNTDOWN= " 
T*=MID*(STR*(TI—TS),2) 

FOR 1=1 TO 6 :IF LEN(T *>=6 THEN 3620 

T*="0"+T*:NEXT 

K*=K*+M ID* ( T*, 2,3) 

GOTO 1790 

PRINT"£CLR>":INPUT"FILE-NAME"; N* 
PRINT"£CLR>":INPUT"DISK ODER KASSETTE 
<D/K>";WW* 

IF WW*="K"THEN OPEN 1,1,1,N* 

IF WW*="D"THEN OPEN 1,B,2,N*+",S,W" 

IF WW*< >"D"AND WW*< >"K"THEN 3650 
PRINT41,PZ:PRINTttl,PX:PRINT#1,PY:PRIN 
T#1,HA:PRINT41,HN:PRINTttl,WE 
PRINT41,L:PRINTttl,S0:PRINT41,IM:PRINT 
#1,CO:PRINT41,SO:PRINTHl,RE 
PRINT#1,TS:PRINT#1,TI* 

FOR Z=1 TO 2:FOR X=1 TO 5:FOR Y=1 TO 
4 

PRINTftl,F1(Z,X,Y) 

PRINT41,F2(Z,X,Y) 

NEXT:NEXT:NEXT:CLOSE 1 


<089> 

<240> 
< 162> 
<0B9> 

< 133> 

< 139> 

< 10B> 
<132> 

<021 > 

< 181 > 

<043> 

<067> 

<082> 

<0B7> 

<243> 

<242> 

<003> 

<005> 

< 114> 
<136> 
<037> 
<045> 

< 156> 

< 176> 
<080> 

< 180> 
< 161 > 
<217> 
<213> 
<248> 
<148> 

< 148 > 

< 154> 

< 145> 
<025> 
<228> 

< 106> 
< 222 > 
<229> 
<240> 

<059> 

< 148> 
<019> 

< 176> 

< 110 > 

<247> 

< 002 > 

<069> 

<043> 

< 118> 

< 17B> 

< 1B7> 
<0B0> 

< 164> 
<188> 
<150> 
< 212 > 

< 152> 

< 199> 
<194> 

< 160> 

<014> 

< 177> 
<034> 

< 210 > 

< 202 > 

<213> 

< 195> 


030 ? 
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Listings 


Crantor 


Listing »Crantor« (Fortsetzung) 


3770 GOTO 420 <231> 

3780 PR I NT ■' {CLR > “: INPUT " FILE-NAME "; N* < 096 > 

3790 PRINT"{CLR}“:INPUT"DISK ODER KASSETTE 

(D/K)";WW* <036> 

3800 IF WW*="K"THEN OPEN 1,1,0,N* <0B2> 

3810 IF WW*="D"THEN OPEN 1,8,2,N*+",S,R" <073> 

3820 IF WW*<>"D"AND WW*<>"K"THEN 3790 <049> 

3830 INPUT#1,PZ:INPUT#1,PX:INPUT#1,PY:INPU 

T#1,HA:INPUT#1,HN:INPUT#1,WE < 034 > 

3840 INPUT#1,L:INPUT#l,SO:INPUT#1,IM: INPUT 

#1,CO:INPUT#1,SO:INPUT#1,RE <198> 

3850 INPUT#1,TS:INPUT#1,T*:TI*=T* <089> 

3860 FOR Z=1 TO 2sF0R X=1 TO 5: FOR Y=1 TO 

4 <085> 

3870 INPUT#1,F1(Z,X,Y) <057> 

3880 INPUT#1,F2<Z,X,Y> <068> 

3890 NEXT:NEXTs NEXT:CLOSE 1 <070> 

3900 GOTO 420 <106> 

3910 IF PZOl OR PX<>5 OR PY<>4 THEN K*="W 

O SIEHST DU DEIN SCHIFF?":GOTO 1790 <194> 

3920 IF RE=0 THEN K*="KEINE ENERGIE DA!":G 

OTO 1790 <020> 

3930 GOTO 4030 <1B5> 

3940 PRINT"{WHITE,CLR>":POKE V+21,0 <120> 

3950 POKE SR,42:POKE SR+1,48:P0KE SR+2,45: 

POKE SR+3,46:POKE SR+4,46:P0KE SR+5,4 
9 < 220 > 

3960 POKE V+23,1sPOKE V+29,1:P0KE V,255:PO 

KE V+l,127:POKE V+2,0:POKE V+3,0 <239> 

3970 POKE V+4,50:POKE V+5,96:POKE V+l6,0 <034> 

3980 POKE V+6,150:POKE V+7,120 <241> 

3990 POKE V+ 8 ,75:POKE V+9,170 <218> 

4000 POKE V+39,12:POKE V+40,3:POKE V+41,10 

:POKE V+42,4:P0KE V+43,14:P0KE V+44,3 <144> 
4010 FOR 1=1 TO 20:PRINT TABCFN R(39))".": 

NEXT <237> 

4020 RETURN <081> 

4030 POKE 53280,0:POKE 53281,0:GOSUB 3940: 

POKE V+21,63:POKE S3+5,32:P0KE S3+6,2 
55 <024> 

4040 POKE S1+5,240:POKE S1+6,253:POKE S2+5 

,196:POKE S2+6,253 <139> 

4050 POKE Sl+1,100:POKE S2+1,50:POKE Sl+4, 

129:POKE S2+4,129 <077> 

4060 FOR W=1 TO 4500:NEXT:POKE S1+24,15:P0 
KE S3+4,33:POKE V+3,140:IF SO=l THEN 
4120 <010> 

4070 POKE V+l1,140 <175> 

4080 FOR X=231 TO 0 STEP-2:POKE V+2,X:POKE 

V+10,X+23:POKE Sl+l,X:POKE S2+1.X <047> 

4090 POKE S3+1,231—X:NEXT <130> 

4100 POKE V+10,0:POKE V+2,0 <199> 

4110 IF CO=0 THEN POKE Sl+4,128:POKE S2+4, 

128:POKE S3+4,32:GOTO 4160 <211> 

4120 POKE S3+4,32:POKE SR,43:FOR W=1 TO 20 

:POKE V+39.FN R(15) <207> 

4130 POKE Sl+1,FN R(255):NEXT:POKE V+39,2 <143> 

4140 POKE S2+1,FN R(255):FOR W=15 TO 5 STE 
P-.02:POKE S1+24,W:IF W<12 THEN POKE 
V+21,62 <121> 

4150 NEXT:POKE Sl+4,128:POKE S2+4,128 <189> 

4160 IF SO=l THEN PRINT“{HOME,GREY 2>DU HA 
ST DICH SELBST MIT IN DIE LUFT GE- SP 
RENGT!!" <233> 

4170 IF CO=0 THEN PRINT"{HOME,GREY 2>DU HA 
ST VERGESSEN DIE BASIS ZU{10SPACE>ZER 
STOEREN!” <040> 

4180 PRINT"{HOME,GREY 2,4D0WN>ZEIT: "LEFT* 

(TI*,2)"MID*(TI*,3,2)”:"RIGHT*(TI*, 

2) <172> 

4190 FOR W=1 TO 2000:NEXT <075> 

4200 POKE V+21,0 <206> 

4210 POKE 198,0:POKE 532B0,0:POKE 53281,0 <118> 

4220 FOR 1=1 TO 22:PRINT TAB(INT(RND(0)*39 

> >"{WHITE}.":NEXT <109> 

4230 POKE SR,48:POKE SR+1,49:POKE SR+2,50 <055> 

4240 POKE SR+3,53:POKE SR+4,54:POKE SR+5,5 

5:POKE SR+6,51:POKE SR+7,52 <243> 

4250 POKE V+23,56:POKE V+29,63:P0KE V+39,3 

:POKE V+40,3:POKE V+41,1:P0KE V+42,14 <153> 
4260 POKE V+43,14:POKE V+44,14 <013> 

4270 POKE V,124:POKE V+l,160:POKE V+2,172: 

POKE V+3,160 <195> 

4280 POKE V+4,148:POKE V+5,175:POKE Sl+5,1 
92:POKE Sl+6,255:POKE Sl+l,4:POKE S1+ 


4290 


4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 


4400 

4410 

4420 

4430 


4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 
457(0 
43 VI 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 


4710 


4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 


4,129 

POKE V+ 6 ,100:PDKE V+8,148:POKE V+10,1 
96:POKE V+7,75:P0KE V+9,75:P0KE V+ll, 
75 

POKE V+5,176:PRINT TAB(INT(RND(0)*37) 
)"{WHITE}.":POKE V+5,177:POKE V+21,7 
POKE V+5,176:POKE V+5,175:PRINT TAB(F 
N R(3B>>"{WHITE}." 

GET A*:IF A*="“THEN 4310 

HA=0:HN=0:WE=0:L=0:SO=0:IM=0:ZE=0:CO= 

0:SO=0:RE=0:RU=1:GOTO 240 

GOTO 4340 

POKE 198,0:PRINT"{CLR}":POKE 53280,0: 
POKE 53281,0 

FOR 1=1 TO 22:PRINT TAB(INT(RND(0)*39 
)>"{WHITE}.":NEXT 

POKE SR,48:POKE SR+1,49:POKE SR+2,50 
POKE SR+3,53:POKE SR+4,54:P0KE SR+5,5 
5:POKE SR+6,51:POKE SR+7,52 
POKE V+23,56:POKE V+29,63:P0KE V+39,3 
:POKE V+40,3:POKE V+41,1:POKE V+42,14 
POKE V+43,14:POKE V+44,14 
POKE V,124:POKE V+l,160:POKE V+2,172: 
POKE V+3,160 

POKE V+4,148:POKE V+5,175 

POKE V+ 6 ,100:POKE V+B,148:P0KE V+10,1 

96:POKE V+7,75:POKE V+9,75:P0KE V+ll, 

75 

POKE V+5,176:PRINT TAB(INT(RND(0)*37) 
)"{WHITE}.":POKE V+5,177:POKE V+21,63 
POKE V+5,176:POKE V+5,175:GOSUB 6090 
AL=0 

IF A*=“I"THEN AL=1 
POKE V+21,59 

FOR 1=75 TO 0 STEP—1:POKE V+7,I:POKE 
V+9,I:POKE V+l1,1:GOSUB 5380:NEXT 
POKE S2+1,10:POKE S2+5,95:POKE S2+6,2 
55:POKE S2+4,129:POKE V+21,7 
FOR 1=160 TO 75 STEP-1:GOSUB 5380:POK 
E V+l,I:POKE V+3,I:POKE V+5,1+17:NEXT 
POKE S2+4,128 

POKE V+21,27:EE=0:GOSUB 4950 



POKE SR+3,51:P0KE SR+4,52:P0KE V+6,13 
4:POKE V+8,1B2:Y=225 

POKE V+42,6:POKE V+43, 6 :POKE V+23,0:P 
OKE V+29,63 

PRINT"{ORANGE}"L*;:FOR W=1 TO 100:NEX 
T 

Y=Y— 8 :POKE V+7,Y:P0KE V+9,Y 

FOR 1=1 TO 5:PRINT"{RVSON,40SPACE,RVO 

FF}";:REM 40 

Y=Y— 8 :POKE V+7,Y:POKE V+9,Y:FOR W=1 T 
O 100:NEXT:NEXT 

X=PEEK(V):Y=PEEK(V+l):AQ=.2:PQ=0:BQ=0 
:XQ=0:POKE S1+1,10:POKE Sl+5,0 
POKE S1+6,248 

X=X+XQ+3:IF XQ<>0 THEN XQ=XO-SGN(XQ)* 
.25 

PQ=PQ+AQ—BQ/10:Y=Y+PQ 

IF PQ<—3 THEN PQ=-3 

IF PO>3 THEN P0=3 

IF Y<0 THEN Y=0 

IF X<0 THEN X=0 

X1=X:X2=X+4B:X3=X+24:A=0 

POKE V,X1 AND 255:POKE V+1,Y:IF(X1 AN 

D 256)=256 THEN A=A+l:POKE V+16,A OR 

PEEK(V+16) 

POKE V+2,X2 AND 255:P0KE V+3,Y:IF(X2 
AND 256)=256 THEN A=A+2:P0KE V+16,A O 
R PEEK(V+16) 

POKE V+4,X3 AND 255:POKE V+5,Y+18:IF( 
X3 AND 256)=256 THEN A=A+4 
IF Y>181 THEN 4890 

POKE V+16,A:POKE V+30,0:IF BQ<>0 THEN 
POKE V+21,31:BQ=BQ-2:POKE Sl+4,129 
J=PEEK(56321) 

IF(J AND 16)=0 THEN BQ=BQ +6 
IF(J AND 4)=0 THEN XQ=XQ-2 
IF(J AND 8 )=0 THEN XQ=XQ+2 
IF BQ=0 THEN POKE V+21,27:POKE Sl+4,1 
28 

IF(PEEK(V+30)AND 29)=29 THEN 4820 
GOTO 4630 

IF X<120 OR X>150 THEN 4890 

POKE Sl+5,0:POKE Sl+6,242:POKE Sl+1,2 


< 175> 


<057> 

<072> 

< 020 > 

< 133> 

< 15B> 
<0B8> 

< 172> 

<250> 

< 196> 

< 128> 

<03B> 

< 154> 

<0B0> 

< 184> 


< 19B> 

<007> 

< 110 > 

<236> 

<205> 

<037> 

<211 > 

<137> 

<039> 

< 122 > 
<145> 

<003> 

<226> 

<061 > 

<218> 

< 088 > 

< 168 > 

<014> 

< 108> 
<227> 

<001 > 

< 119> 
<209> 

< 131 > 
<249> 
<001 > 
<023> 


< 161 > 


<140> 

<226> 

<055> 

< 152> 

< 176> 
<039> 
<039> 
<052> 

<248> 

<208> 

<050> 

<218> 
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Crantor 


Listings 


5 <002> 

4840 FOR 1=1 TO 10:PRINT“{HOME,DOWN,RIGHT> 

ENERGIE LEVEL = 0“:POKE Sl+4,33 <173> 

4850 FOR W=1 TO 500:NEXT:PRINT"<HOME,DOWN, 

20SPACE >":POKE S1+4,32:FOR W=1 TO 500 <225> 
4860 NEXT:NEXT <076> 

4870 IF AL=0 THEN RETURN <072> 

4880 GOTO 5180 <122> 

4890 POKE SR,43:POKE SR+l,43:POKE S1+5,0:P 
OKE S2+5,0:POKE S1+6,252:POKE S2+6.25 
2 <246> 

4900 POKE Sl+1,10:POKE S2+1.10 <120> 

4910 POKE Sl+4,33:POKE S2+4.129 <200> 

4920 FOR W=1 TO 100:NEXT:POKE S1+4,32:P0KE 

S2+4,128 <182> 

4930 FOR W=1 TO 2000:NEXT <050> 

4940 EE=1:GOSUB 4950:GOTO 4350 <244> 

4950 K*="<39SPACE>" <206> 

4960 IF EE=0 THEN K*=K*+"DU BIST " <090> 

4970 IF EE=1 THEN K*=K*+"DU WARST " <196> 

4980 K*=K*+"ZUR RETTUNG DER VEREINIGTEN PL 

ANETEN BEORDERT." <038> 

4990 IF EE=0 THEN K*=K*+" DEINE AUFGABE IS 

T " <237> 

5000 IF EE=1 THEN K*=K*+" DEINE AUFGABE WA 

R " <242> 

5010 K*=K*+"ES DEN GARSTIGEN IMPERATOR ’CR 

ANTOR-, DER DAS PLANETENSYSTEM " <107> 

5020 IF EE=0 THEN K*=K*+"BEDROHT, " <255> 

5030 IF EE=1 THEN K$=K$+"EROBERTE, " <090> 

5040 K*=K*+"UNSCHAEDLICH ZU MACHEN!!" <073> 

5050 K*=K*+"<41SPACE>" <075> 

5060 IF AL=0 THEN RETURN <006> 

5070 POKE S1+5,0:POKE Sl+6,244:POKE Sl+4,3 
3:POKE S2+5,0:POKE S2+6,241:POKE S2+4 
,129 <125> 

5080 POKE Sl+1,50:POKE S2+l,90 <056> 

5090 FOR 1=1 TO LEN(K*>-40 <216> 


5100 POKE Sl+4,33:PDKE S2+4,129:PRINT"CHOM 
E,22D0WN >";:REM 22 
5110 PRINT MID*(K*,I,40) 

5120 FOR W=1 TO 40:NEXT:POKE Sl+4,32:POKE 
S2+4,128 

5130 FOR W=1 TO 40:NEXT:POKE Sl+4,33:POKE 
S2+4,129 

5140 FOR W=1 TO 40:NEXT:POKE S1+4,32:P0KE 
S2+4,128 

5150 FOR W=1 TO 40:NEXT:POKE S1+4,33:P0KE 
S2+4,129 

5160 NEXT:POKE S1+4,32:P0KE S2+4,128:RETUR 


N <069> 

5170 GOTO 5170 <156> 

5180 POKE SR,40:POKE SR+1,41:P0KE V,40:POK 

E V+l,160:POKE V+2,40:POKE V+3,202 <209> 

5190 POKE 53280,6:POKE 53281,6 <139> 

5200 POKE V+23,3:POKE V+29,3:POKE V+21,3:P 

OKE V+39,0:POKE V+40,0 <023> 

5210 PRINT"CCLR,14D0WN,4RIGHT,WHITE,RVSON, 

2SPACE,DOWN,2LEFT,2SPACE,RVOFF,YELLOW 
}" < 210 > 

5220 PRINT"{HOME >"; <163> 

5230 POKE V+24,10:PRINT TAB<8); <030> 

5240 K*="HALLO, ÄJ ELENDER HI CHT!****":GOS 

UB 5410 <126> 

5250 K*=“<D0WN,2SPACE>HILLST 5U TATS1CHLIC 

H VERSUCHEN MICH,":GOSUB 5410 <045> 

5260 K*="ISPACE,ORANGE>£RANTOR{YELLOW}, UN 
D MEINE 2ASIS ZU ZERST2REN?":GOSUB 54 
10 <094 > 

5270 K*="<D0WN>****<2SPACE>SETZT SU WAHRHA 

FTIG SEIN .LEBEN AUFS‘":GOSUB 5410 <077> 

5280 K*=“t2SPACE>SPIEL, UM DIESES flNDROMED 

A-SAL1XCHEN":GOSUB 5410 <101> 

5290 PRINT TAB(15);:K*="ZU RETTEN?****":GO 

SUB 5410 <092> 

5300 K$="(DOWN,2SPACEISEIN £ECH! iCH F3R M 

EINEN IEIL HETZE":GOSUB 5410 <057> 

5310 K*="MEINEISPACE,ORANGE > £RAMES<YELLOW, 
SPACEJAUF DICH, BIS DAS SCHWARZE":GOS 
UB 5410 <077> 

5320 K*=" DICH ERL24T. ***SU BIST JETZT SC 

HON EIN":GOSUB 5410 <102> 

5330 PRINT TAB(14);:K*="TOTER flANN!***":GO 

SUB 5410 <242> 

5340 PRINT:PRINT:PRINT:PRINT TAB(16); <112> 

5350 K*="HIMMS- LEICHT!":GOSUB 5410:POKE 1 

98,0 <196> 


< 142> 
<049> 

<082> 

<094> 

< 102 > 
< 114> 


5360 GET A4:IF A*=""THEN 5360 <159> 
5370 POKE V+24,8:RETURN <055> 
5380 PRINT TAB(INT(RND(0)*39))"IWHITEJ." <079> 
5390 K*="D":RETURN <148> 
5400 GOSUB 5680:GOTO 5390 <033> 
5410 POKE Sl+5,0:POKE Sl+6,240:POKE S2+5,0 

:POKE S2+6,241 <014> 
5420 FOR 1=1 TO LEN(K*> <021> 
5430 POKE S2+1,(ASC(MID*CK*,I,1))*2)AND 25 

5:POKE Sl+1,ASC(MID*(K*,1,1)) <042> 
5440 IF MID*(K*,I,1>=" "THEN 5470 <169> 
5450 IF MID*(K*,1,1> = "*"THEN FOR W=1 TO 30 


0:NEXT:GOTO 5480 

5460 POKE Sl+4,129:POKE S2+4.129 
5470 PRINT MID*(K*,I,l);:FOR W=1 TO 10:NEX 
T 

5480 POKE Sl+4,128:POKE S2+4,128:NEXT 
5490 PRINT:RETURN 

5500 POKE S1,10:POKE S1+1,10:POKE S1+5,0:P 
OKE Sl+6,245 

5510 FOR 1=1 TO 4:POKE Sl+4,129 

5520 FOR W=1 TD 25:NEXT 

5530 POKE Sl+4,128 

5540 FOR W=1 TO 150:NEXT:NEXT 

5550 RETURN 

5560 POKE Sl+5,5:PDKE Sl+6,253:POKE S2+5,5 
:POKE S2+6,253 

5570 POKE S1,2:POKE S2,2:P0KE S1+4,129:P0K 
E S2+4,33 

5580 FOR F=1 TO 125:POKE Sl+1,F*2:POKE S2+ 

1,F:NEXT 

5590 POKE Sl+4,128:POKE S2+4,32:RETURN 
5600 POKE S1,100:POKE S1+1,100:POKE S2,100 
:POKE S2+1,15:POKE S3,10:POKE S3+1,10 

0 

5610 POKE Sl+5,10:POKE Sl+6,252 
5620 POKE S2+5,10:POKE S2+6,250 
5630 POKE S3+5,5:POKE S3+6,253 
5640 POKE Sl+4,17+4:POKE S2+4,33+2:POKE S3 
, 17+4 

5650 FOR W=1 TO 400:NEXT 

5660 POKE Sl+4,16+4:POKE S2+4,16+4:POKE S3 
>,32+2 
5670 RETURN 

5680 POKE Sl+5,5:POKE Sl+6,250:POKE S2+5,5 
:POKE S2+6,245:POKE Sl+24,21 
5690 POKE Sl+2,100:POKE S1+3,14:P0KE S2+2, 
100:POKE S2+3,3 

5700 Q=1:FOR W=1 TO 13 STEP 2:WH=4:IF W >8 
THEN WH=2 

5710 POKE S2,FL(Q):POKE S2+1,FH<Q>:POKE S2 
+4,T2 

5720 FOR N=1 TO WH:FOR L=0 TO 1 
5730 POKE S1,TL<W+L>:POKE S1+1,TH(W+L) 

5740 POKE Sl+4,TI 
5750 FOR WW=1 TO 50:NEXT WW 
5760 IF PEEK(203)< >64 THEN POKE S2+4,0:POK 
E Sl+24,31:RETURN 
5770 POKE Sl+4,TI—1 
57B0 FOR WW=1 TO 40:NEXT WW 
5790 NEXT L, N:POKE S2+4,T2—1:Q=Q+1:NEXT W 
5800 GOTO 5680 

5810 POKE S1+5,5:P0KE Sl+6,252 
5820 FOR 1=1 TO 7:POKE S1,FL(I):POKE Sl+1, 
FH(I):POKE Sl+4,17 
5830 FOR W=1 TO 100:NEXT 
5840 POKE Sl+4,16 
5850 FOR W=1 TO 100:NEXT 
5860 NEXT I:RETURN 
5870 POKE Sl+5,5:POKE Sl+6,252 
5880 POKE S1,20:POKE Sl+1,20 
5890 POKE Sl+4,17 

5900 FOR W=1 TO 100:NEXT:POKE Sl+4,16 
5910 RETURN 

5920 POKE 83+5,196:POKE S3+6,255 
5930 POKE S3,10:POKE S3+1,10 
5940 POKE Sl+23,12:POKE S3+4,129 
5950 FOR W=1 TO 5000:NEXT:POKE S3+4.128 
5960 RETURN 

5970 POKE Sl+5,0:POKE Sl+6,252 

5980 POKE S3+5,0:POKE S3+6,252:POKE Sl+23, 

0 

5990 POKE Sl+4,17+4:POKE S3+4,129 
6000 FOR 1=60 TO 200:POKE Sl+1,I:POKE S3+1 
,I:NEXT 

6010 POKE Sl+4,16+4:POKE S3+4,128 
6020 RETURN 


<079> 

<038> 

< 089 > 
<244> 
<232> 

< 130> 
<027> 
<039> 
< 111 > 
<038> 
<081 > 

<181> 

< 197> 

< 166> 
<056> 


<099> 
< 128> 
<138> 

< 109> 

<244> 

<215> 

<227> 

< 202 > 

<032> 

<072> 

<0B4> 

<083> 

<033> 

< 147> 
<044> 
<017> 

<081 > 
<038> 
<046> 
<058> 
<026> 
<029> 

<082> 

< 136> 

< 114> 

< 156> 

< 141 > 
<089> 

< 117> 

< 166> 

< 149> 

< 1B7> 
< 222 > 

< 170> 
<001 > 
<049> 
<237> 

< 185> 

< 135> 
<229> 

< 167> 
<247> 
<041 > 
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Listings 


Crantor 


Listing »Crantor« (Fortsetzung) 

6030 POKE Sl+5,0:POKE S1+6,252 
6040 POKE S3+5,0:POKE S3+6,252:POKE Sl+23, 
0 

6050 POKE Sl+4,17+4:POKE S3+4.129 
6060 FOR 1=200 TO 60 STEP-l:POKE Sl+l,I:PO 
KE S3+1,I:NEXT 

6070 POKE Sl+4,16+4:POKE S3+4,128 
6080 RETURN 

6090 POKE Sl+23,242:POKE S1+22,80 
6100 POKE Sl+5,0:POKE Sl+6,202 
6110 POKE S2+5,0:POKE 32+6,249 
6120 POKE S3+5,0:POKE 83+6,253 
6130 POKE Sl+2,112:POKE Sl+3,3 
6140 POKE S2+2,96:POKE S2+3,14 
6150 W1=64:W2=64:W3=32:N=1:S=0 
6160 GET A*:IF A*<>“"THEN POKE Sl+23,4:RET 
URN 

6170 IF H(1,N)>=0 THEN FOR W=1 TO TT:NEXT: 

GOTO 6230 
6180 GOTO 6200 
6190 IF H(1,N)>=0 THEN 6230 
6200 IF H<1,N> =—.1 THEN N=l:GOTO 6170 
6210 IF S=1 THEN S=0:N=N+1:GOTO 6190 
6220 S=1:N=-H(1,N) 

6230 POKE S1,L(1,N>:POKE S1+1,H(1,N> 

6240 POKE S2,L(2,N>:POKE S2+1,H(2,N) 

6250 POKE S3,L(3,N>:POKE S3+1,H(3,N) 

6260 POKE S1+4,W1+1:POKE S2+4.W2+1:POKE S3 
+4,W3+1 

6270 FOR W=1 TO TE: NEXT 

6280 POKE S1+4.W1:POKE S2+4,W2:P0KE S3+4,W 

3 

6290 FOR W=1 TO TE/2:NEXT 
6300 N=N+1:GOTO 6160 
6310 DATA 004,028,002,004,0 
6320 DATA 265,011,134,003,0 
6330 DATA 004,1028,009,006,0 
6340 DATA 009,011,522,011,2. 

6350 DATA 064,016,4100,004,0 
6360 DATA 024,266,011,263,0 
6370 DATA 2052,1032,014,003,0 
6380 DATA 265,010,011,002,0 
6390 DATA 64,2,32,16,0,0,0,0,0,0,0,0,0,0,0 
, 8 , 0 , 0 , 0,0 

6400 DATA 256,4,0,128,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0, 1,0 
6410 SO=l:GOTO 4030 
6420 PRINT“£HOME,SPACE >”K* 

6430 PRINT“ ICH FUERCHTE DU HAST KEINEN“ 
6440 PRINT" O—TANK. " : GOTO 6470 
6450 PRINT"£HOME,SPACE>"K* 

6460 PRINT“ ICH FUERCHTE DU HAST KEINEN":P 
RINT“ RAUMANZUG.“ 

6470 POKE Sl+5,196:POKE S1+6,253 
6480 POKE S1,30:POKE S1+1,40:POKE Sl+4,129 
6490 FOR W=1 TO 5000:NEXT:POKE Sl+4,128 
6500 FOR W=1 TO 1000:NEXT:GOTO 6670 
6510 POKE 53280,4:PRINT"£2RIGHT>DIE STRAHL 
EN HABEN DICH GETOETET!“:GOTO 6670 
6520 POKE 53281,2:N*=“CRAME“:60SUB 5600 
6530 IF IM=1 THEN NS=“CRANTOR“ 

6540 PRINT“£CLR,DOWN,SPACE>DER GEWITZTE “N 
*" HAT DEIN LEBEN“ 

6550 PRINT“ DURCH SEIN LASER-SCHWERT BEEND 
ET! ! “ 

6560 FOR W=1 TO 1000:NEXT:GOTO 6670 
6570 POKE 53281,0:PRINT“£CLR>“:FOR 1=1 TO 
20:PRINT TAB < RND(1)*38)"£WHITE >.“:NE X 
T:PRINT“£YELLOW>" 

6580 PRINT“£HOME,DOWN,SPACEJWARUM HAST DU 
DIE BASIS VERLASSEN??“:GOSUB 5970 
6590 PRINT" DU BIST IM ALL!“:PRINT" OHNE H 
ILFE!“:PRINT“DU WIRST BALD STERBEN.“ 
6600 GOTO 6670 
6610 POKE 53281,0 

6620 PRINT“£CLR,DOWN,SPACE>DU BIST IN DEN 
KELLER GEFALLEN!“:GOSUB 6030 
6630 PRINT“ EIN GROSSER BERG ABFALL UMGIBT 
DICH.“ 

6640 PRINT“ ES GIBT KEINE MOEGLICHKEIT AUS 
DIESEM" 

6650 PRINT“ RAUM HERAUSZUKOMMEN!!“ 

6660 PRINT“£SPACE,DOWN>ASCHE ZU ASCHE, STA 
UB ZU STAUB..." 

6670 Tl=21:T2=21:FOR W=1 TO 5000:NEXT:GOSU 



6680 

DATA 

<245> 

6690 

DATA 


6700 

DATA 

< 195> 

6710 

DATA 

<033> 

6720 

DATA 


6730 

DATA 

< 104> 

6740 

DATA 

<051 > 

6750 

DATA 

< 101 > 

6760 

DATA 

<198> 

6770 

DATA 

<054> 

6780 

DATA 

<077> 

6790 

DATA 

<084 > 

6800 

DATA 

<081 > 

6810 

DATA 

< 106> 

6820 

DATA 

<086> 

6830 

DATA 


6840 

DATA 

<249> 

6850 

DATA 


6860 

DATA 

< 140> 

6870 

DATA 

< 141 > 

6880 

DATA 

<026> 

6890 

DATA 

<06B> 

6900 

DA 1 A 

<237> 

6910 

DATA 

< 195> 

6920 

DATA 

< 157> 

.6930 

DATA 

< 171 > 

6940 

DATA 

< 185> 

6950 

DATA 


6960 

DATA 

< 15B> 

6970 

DATA 

<074> 

6980 

DATA 


6990 

DATA 

<033> 

7000 

DATA 

<061 > 

7010 

DATA 

< 109> 

7020 

DATA 

<117> 

7030 

DATA 

< 133> 

7040 

DATA 

< 195> 

7050 

DATA 

< 151 > 

7060 

DATA 

< 211 > 

7070 

DATA 

< 180> 

7080 

DATA 

< 020 > 

7=' A 

DATA 

< 185> 

7100 

DATA 


7110 

DATA 

<069> 

7120 

DATA 


7130 

DATA 

< 125> 

7140 

DATA 

<050> 

7150 

DATA 

< 140> 

7160 

DATA 

< 193> 

7170 

DATA 

< 138> 

7180 

DATA 

< 170> 

7190 

DATA 


7200 

DATA 

< 222 > 

7210 

DATA 

<032> 

7220 

DATA 

<206> 

7230 

DATA 

<077> 

7240 

DATA 

<239> 

7250 

DATA 


7260 

DATA 

< 146> 

7270 

DATA 

<037> 

7280 

DATA 

< 199> 

7290 

DATA 


7300 

DATA 

< 141 > 

7310 

DATA 


7320 

DATA 

<046> 

7330 

DATA 

<043> 

7340 

DATA 


7350 

DATA 


7360 

DATA 

<043> 

7370 

DATA 


7380 

DATA 

<052> 

7390 

DATA 


7400 

DATA 

< 118> 

7410 

DATA 

<061 > 

7420 

DATA 

<225> 

7430 

DATA 


7440 

DATA 

<093> 

7450 

DATA 


7460 

DATA 

<173> 

7470 

DATA 


7480 

DATA 

<037> 

7490 

DATA 

< 165> 

7500 

DATA 


7510 

DATA 

<230> 

7520 

DATA 


7530 

DATA 


B 5680:GOTO 4330 


<216> 

<224> 

< 124> 

< 151 > 
<023> 
<037> 
<042> 
<05B> 
<007 > 
<070> 

< 125> 

< 119> 

< 133> 
<089> 

< 149> 

< 166> 
<232> 
<009> 

< 127> 

< 199> 
< 000 > 
<009> 
<015> 
<234> 
<038> 

< 186> 

< 196> 
<207> 

< 163> 
< 222 > 
<236> 
<246> 

< 148> 

< 170> 
<086> 
<245> 
<008> 
<185> 
<006> 

< 115> 

< 115> 
<218> 
<236> 
<045> 
<094> 
< 101 > 
<228> 

< 1B7> 

< 174> 
<217> 
<030> 

< 165> 

< 18B> 

< 102 > 

< 196> 
<094> 
<216> 
<224> 
<238> 
<005> 

< 158 > 

< 121 > 
<037> 
<1B9> 
<208> 

< 129> 
<221 > 

< 183> 
<085> 

< 150> 

< 128> 
<027> 

< 145> 

< 155> 

< 165> 

< 175> 

< 185> 
<017> 
<013> 

< 156> 

< 111 > 
<078> 

< 184> 
<249> 
<234> 

< 162> 
<018> 
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Listings 


Crantor 


Listing »Crantor« (Fortsetzung) 


DATA 128,0,0,0,0,0,0,0 

DATA 0,0,0,5,0,32,16,146 

DATA 64,9,144,128,4,42,220,18 

DATA 73,32,65,B2,252,60,253,0 

DATA 0,126,88,69,255,32,18,124 

DATA 80,4,255,136,33,74,0,2 

DATA 37,194,18,202,56,4,9,0 

DATA 9,40,144,16,0,64,36,66 

DATA 32,0,16,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 


7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 

0 , 0 , 0 , 0 , 1 , 0 , 0,8 
7640 DATA 0,0,2,0,0,21,28,3 
7650 DATA 176,38,7,106,255,255,116,255 
7660 DATA 252,116,0,0,137,0,0,34 
7670 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
7680 DATA 0,0,0,0,0,0,112,0 
7690 DATA 115,192,0,255,0,1,254,0 
7700 DATA 1,252,0,1,252,0,3,248 
7710 DATA 0,14,112,0,56,0,0,0 
7720 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
7730 DATA 0,0,112,0,0,248,0,1 
7740 DATA 252,0,1,252,0,1,252,0 
7750 DATA 0,248,0,0,112,0,0,0 
7760 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
7770 DATA 0 

7780 DATA OUTDOOR-CARD,INDQOR-CARD,BOMBE,Z 
UENDER, SCHWERT , STRAHLENANZUG , RAUMANZU 
G 

7790 DATA O-TANK,URAN,CRAME,CRANTOR,COMPUT 
ER,ZENTRALE,TUER,SCHIFF,NIMM,GET 
7800 DATA VERLIER,DROP,ZERSTOERE,LADE,TOET 
E,OEFFNE,BENUT ZE,BETE 
7810 DATA 26,20,34,205,26,20,31,3,27,160,3 
4,207,26,20,32,219,32,219,26,20 
7820 DATA 23,59,29,69,19,137,26,20,17,103, 
20,178,13,208,13,10,13,10,19,137,13,1 
0 

7830 DATA 7,7,81,4,6,133,4,5,207 

7840 DATA 1,6,133,1,0,0 

7850 DATA 11,7,81,4,5,207,1,6,133 

7860 DATA 3,7,81,4,8,180,4,7,193 

7870 DATA 4,8,180,1,7,81,1,0,0 

7880 DATA 3,7,81,8,7,193,4,8,180,1,7,81 

7890 DATA 3,7,81,4,5,207,4,7,81 

7900 DATA 4,5,207,1,7,81,1,0,0 

7910 DATA 3,7,81,4,5,207,4,7,81 

7920 DATA 4,5,207,1,7,81,1,0,0 

7930 DATA 3,8,55,4,9,196,4,8,55 

7940 DATA 4,9,196,1,8,55,1,0,0 

7950 DATA 16,6,133,2,0,0 

7960 DATA 3,5,207,13,4,226,1,0,0,15,4,226 
7970 DATA 3,4,226,13,5,207,1,0,0,16,5,207 
7980 DATA 3,5,207,13,4,226,1,0,0 
7990 DATA 3,4,226,13,5,207,1,0,0 
8000 DATA 3,5,207,13,6,133,1,0,0 
8010 DATA 8,9,196,8,55 
8020 DATA 39,18,43,219,46,118,5B,138 
8030 DATA 58,138,52,39,46,118,52,39 
8040 DATA 52,39,46,118,43,219,46,118 
8050 DATA 46,118,43,219,43,219,39,18 
8060 DATA—1,0,39,18,43,219,46,118 
8070 DATA 52,39,52,39,58,138,5B,138 
80B0 DATA 58,138,39,18,43,219,46,118 
8090 DATA 52,39,52,39,58,138,58,138,39,18 
8100 DATA 69,157,69,157,69,157,69,157 
8110 DATA 69,157,62,5,58,138,62,5 
8120 DATA 62,5,58,138,52,39,58,138 
8130 DATA 58,138,52,39,52,39,46,118,-34,0 
8140 DATA 46,118,52,39,58,138,62,5 
8150 DATA 62,5,69,157,69,157,69,157 
8160 DATA 46,118,52,39,58,138,62,5 
8170 DATA 62,5,69,157,69,157,46,118 
8180 DATA 39,18,43,219,46,118,58,138 
8190 DATA 58,138,58,138,58,138,39,18 
8200 DATA 39,18,43,219,46,118,5B,138 
8210 DATA 58,13B,58,13B,58,138,39,18,-67,0 
8220 DATA 46,118,52,39,58,138,69,157 
8230 DATA 69,157,69,157,69,157,46,118 
8240 DATA 46,118,52,39,58,138,69,157 
8250 DATA 69,157,69,157,69,157,46,118,-84, 
0 

8260 DATA 52,39,58,138,65,181,78,36 



8270 

DATA 

78,36,78,36,78,36,52,39 

<096> 


8280 

DATA 

52,39,58,13B,65,181,78,36 

< 200 > 

<051 > 

8290 

DATA 

78,36,78,36,78,36,52,39,-101,0 

< 187> 

<174> 

8300 

DATA 

52,39,58,138,65,181,78,36 

< 220 > 

< 202 > 

8310 

DATA 

52,39,58,138,65,181,78,36 

<230> 

<211 > 

8320 

DATA 

52,39,58,138,65,181,78,36 

<240> 

<025> 

8330 

DATA 

52,39,58,138,65,181,78,36 

<250> 

< 127> 

8340 

DATA- 

118,0,-.1,0 

<078> 

< 145> 

8350 

N=1:FÜR 1=1 TQ 38 

<197> 

<154> 

8360 

READ 

A:READ H:READ Ls FOR K=1 TO A:HC3 


< 132> 


,N)=H:L<3,N)=L 

<080> 


8370 

N=N+1:NEXT:NEXT 

<083> 

<235> 

8380 

N=1:FÜR 1=1 TG 17 

<224> 

< 158> 

8390 

READ 

As READ Hs READ LsFOR K =1 TO AsH<2 


<249> 


,N> =H: L (2,N) =L 

< 108> 

<179> 

8400 

N=N+1:NEXT:NEXT 

< 113> 


BA 10 

READ 

As READ HlsREAD LIsREAD H2s READ L 


< 010 > 


2 


< 148> 

< 185> 

8420 

FOR 

=1 TO AsH(2,N)=HlsL<2,N)=Ll 

< 210 > 

< 010 > 

8430 

H(2,N+1)=H2:L(2,N+1)=L2sN=N+2 

<044> 

<174> 

8440 

NEXT 


< 122 > 

<071 > 

8450 

N=1:FOR 1=1 TO 135 

< 120 > 


8460 

READ 

H <1,N)s READ L(1,N)s N=N+1s NEXT 

<032> 

<029> 

8470 

RETURN 

< 197> 

<090> 

8480 

DATA 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,7,0 

<063> 

<206> 

8490 

DATA 

0,31,0,0,127,0,1,244 

< 139> 

< 109> 

8500 

DATA 

0,31,255,0,127,255,7,255 

< 117> 


8510 

DATA 

255,255,245,85,7,255,255,0 

<245> 

<069> 

8520 

DATA 

31,255,0,3,255,0,0,15 

<229> 

<043> 

8530 

DATA 

0,0,31 ,0,0,0,0,0,0,0,0,0,0,0,0,0 




, 0,0 

0 , 0 , 0 , 0 , 0,0 

< 158> 


8540 

DATA 

0,0,0,0,224,0,0,248 

< 138> 

< 212 > 

8550 

DATA 

0,0,254,0,0,7,128,0 

< 155> 


8560 

DATA 

255,248,0,255,254,0,255,255 

<081 > 

< 212 > 

8570 

DATA 

224,170,175,255,255,255,224,255 

<039> 


8580 

DATA 

248,0,255,192,0,240,0,0 

< 136> 

<229> 

8590 

DATA 

248,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 




0 


<052> 

<038> 

3600 

DATA 

1,255,128,3,255,192,7,118 

< 020 > 


8610 

DATA 

224,9,194,72,22,169,252,66 

<091 > 


8620 

DATA 

178,136,48,74,98,4,0,37 

< 212 > 

< 149> 

oc -,0 

DATA 

170,33,0,4,4,82,16,17 

<093> 

< 113> 

bu .0 

DATA 

0,132,64,0,1,4,8,0 

< 197> 

< 172> 

8650 

DATA 

32,65,72,128,16,0,16,0 

< 164> 

< 173> 

8660 

DATA 

0,1,0,0,0,0,8,16 

< 10 B> 

< 149> 

8670 

DATA 

16,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0 


<038> 


, 0,0 

0 , 0 , 0 , 0 , 0,0 

<046> 

< 002 > 

8680 

DATA 

0,0,255,255,255,255,255,255 

< 200 > 

< 124> 

8690 

DATA 

255,255,255,231,57,206,231,57 

<058> 

<065> 

8700 

DATA 

206,255,255,255,231,57,206,255 

< 11B> 

<144> 

8710 

DATA 

255,255,255,255,255,255,255,255 

< 191 > 

<085> 

8720 

DATA 

255,255,255,255,255,255,255,255 

<201 > 

< 179> 

8730 

DATA 

255,255,255,255,255,255,255,0 

< 103> 

< 119> 

8740 

DATA 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

<093> 

<082> 

8750 

DATA 

0,0,255,255,255,255,255,255 

<015> 

< 150> 

8760 

DATA 

255,255,255,115,156,231,115,156 

<225> 

< 161 > 

8770 

DATA 

231,255,255,255,115,156,231,255 

<234> 

<242> 

8780 

DATA 

255,255,255,255,255,255,255,255 

<005> 

<252> 

8790 

DATA 

255,255,255,255,255,255,255,255 

<015> 

<005> 

8800 

DATA 

255,255,255,255,255,255,255,0 

< 173> 

<079> 

8810 

DATA 

3,255,192,6,0,112,12,0 

<059> 

<015> 

8820 

DATA 

28,24,0,7,48,60,1,48 

<243> 

<231 > 

8830 

DATA 

102,0,48,195,0,49,131,0 

< 135> 

<028> 

8840 

DATA 

49,131,0,25,131,0,13,134 

< 1B7> 

<039> 

8850 

DATA 

0,7,140,0,3,248,0,1 

<201 > 

< 188> 

8860 

DATA 

128,1,1,128,51,1,128,118 

<217> 

< 020 > 

8870 

DATA 

1,128,220,1,129,152,0,195 

<019> 

<075> 

8880 

DATA 

16,0,198,16,0,124,16,0 

< 135> 

<085> 

8890 

DATA 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

<019> 

<170> 

8900 

DATA 

0,0,0,0,192,0,1,126 

<243> 

<211 > 

8910 

DATA 

0,1,3,254,1,0,3,255 

<006> 

<016> 

8920 

DATA 

0 , 0 , 1 , 0 , 0 , 1 , 0,0 

<051 > 

< 103> 

B930 

DATA 

1,63,0,1,97,141,225,192 

<241 > 

<031 > 

8940 

DATA 

207,49,192,206,49,192,204,49 

< 011 > 

< 109> 

8950 

DATA 

192,204,48,192,204,48,192,236 

<066> 

<051 > 

8960 

DATA 

48,97,188,24,63,24,15,0 

<034> 

< 121 > 

8970 

DATA 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

< 100 > 

< 175> 

8980 

DATA 

0,0,0,0,152,0,0,140 

<059> 

< 196> 

8990 

DATA 

0,0,140,0,0,248,0,0 

<075> 

< 164> 

9000 

DATA 

128,0,0,135,224,0,140,48 

<095> 

<219> 

9010 

DATA 

0,152,24,0,152,24,3,152 

<051 > 

< 191 > 

9020 

DATA 

24,6,152,24,236,152,25,184 

<231 > 

<005> 

9030 

DATA 

204,51,48,103,230,48,49,140 

<031 > 

<211 > 

9040 

DATA 

48,27,24,48,254,48,48,0 

<116> 


9050 

DATA 

0 

<048> 

<05B> 

9060 

FOR 

[=832 TO 832+33sREAD AsPOKE I,AsN 


< 180> 


EXT 


<054> 
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Listings 


Odyssee 


9070 SYS 832:POKE 53272,8:POKE 56576,PEEK< 

56576)AND 252:POKE 648,192 <177> 
90B0 READ A:IF A=255 THEN RETURN <236> 
9090 FÜR 1=0 TO 7:READ B:POKE 59392+I+A*8, 

B:NEXT <248> 
9100 GOTO 9080 <009> 
9110 DATA 120,169,51,133,1,169,0,133,95,13 

3,90,133,88,169,208,133,96,169,240 <007> 
9120 DATA 133,89,169,224,133,91,32,191,163 

,169,55,133,1,B8,96 <058> 
9130 DATA 49,102,0,60,6,62,102,62,0 <015> 
9140 DATA 50,102,0,60,102,102,102,60,0 <151> 
9150 DATA 51,102,0,102,102,102,102,62,0 <209> 
9160 DATA 52,60,102,102,108,102,102,108,96 <136> 
9170 DATA 255 <020> 
9180 : <057> 
9190 x <067> 
9200 REM WRITTEN IN MARCH 1984 <167> 
9210 REM BY <071> 
9220 REM ANDREAS LUENING <199> 
9230 REM + <236> 
9240 REM JAN JENS MUENTINGA <124> 
9250 : <128> 
9260 REM PROGRAMM CA 27 KBYTE <176> 
9270 REM GESAMMT CA 34 KBYTE <097> 
9280 : <158> 
9290 : <168> 
9300 REM Q= CRSR DOWN <= CRSR LEFT <229> 
9310 REM t= CRSR UP >= CRSR RIGHT <190> 
9320 REM äP= CTRL '8' E= CTRS '2' <080> 
9330 REM R= RVS ON "fl“» C= *1' <141> 
9340 REM"A"= C= '5' <139> 


Listing »Crantor« (Schluß) 


S4€H 

Odyssee — 
Kampf der 
Bruderschaft 

Eine abenteuerliche Reise durch das 
Land des bösen Zauberers Saruman. 

Bei Odyssee handelt es sich um eine Kombination aus 
Abenteuer- und Rollenspiel. 

Als Auserwählter einer Bruderschaft erhalten Sie den Auf¬ 
trag, das Land vom Zauberer zu befreien. Sie begeben sich 
auf die Reise, den Zauberer zu suchen und zu vernichten; 
dabei werden Sie gefährliche Situationen zu meistern haben, 
Feinden, aber auch Freunden begegnen. 

Vor 20 Jahren hat der mächtige Zauberer Saruman die 
Herrschaft über das Land Sosaria an sich gerissen. Ihre 
Bruderschaft ist jedoch nicht länger gewillt, seine Tyrannei 
noch länger zu erdulden und hat Ihnen den Auftrag gegeben, 
den Zauberer zu suchen und zu vernichten. Auf Ihrer Reise 
begegnen Sie vielen Feinden und einigen Ordensbrüdern, 
aber auch unter diesen gibt es Verräter. Ausgerüstet sind Sie 
mit 400 Einheiten Kraft, 350 goldenen Münzen und 50 Vor¬ 
ratseinheiten. Sie werden schnell feststellen, daß Sie noch 
sehr schwach sind, aber es gibt in Dörfern und Städten Klei¬ 
der, Waffen und Vorräte zu kaufen. Geld bekommen Sie in 
zahlreichen Kämpfen. 


Eingabe und Speicherung 

Zuerst muß man den »Creater« eingeben und speichern. 
Nach dem Starten prüft das Programm, ob alle DATA-Zeilen 
richtig eingegeben worden sind. Ist dies nicht der Fall, so er¬ 
scheint eine Fehlermeldung. Stimmen die DATAs, dauert es 
noch etwa 3,5 Minuten, bis das Programm »World« auf Disket¬ 
te gespeichert ist. »World« beinhaltet einen neuen Zeichen¬ 
satz, eine Maschinensprache-Routine zum waagerechten 
Scrollen des Bildschirms und zirka 16 KByte, die die Land¬ 
schaft der Odyssee ausmachen. 

Die Odyssee ist das Hauptprogramm. Nach Eintippen und 
Speichern startet man es mit RUN. Zuerst gilt es, sich einen 
Spieler zu erstellen. Hier kann man 100 Punkte auf Stärke 
(Strength), Widerstandskraft (Stamina), Intelligenz (Intelli¬ 
gence) und Wissen (Wisdom) verteilen. Die Eingabe der 
Punkte muß immer zwei Ziffern lang sein. Falls man einmal zu¬ 
viel Punkte (100) eingegeben hat, werden alle Kriterien wie¬ 
der auf Null gesetzt, und man beginnt von vorne. Nun ent¬ 
schließt man sich noch zu einem fantasievollen Namen und 
muß jetzt erst einmal Geduld aufbringen, da man noch unge¬ 
fähr eine Minute zu warten hat. Diese Wartezeit braucht je¬ 
doch nur beim 1. Spiel in Kauf genommen zu werden. Nun er¬ 
scheint das Titelbild mit dem Hinweis darauf, daß der 2. Teil 
geladen wird. Ist der Ladevorgang abgeschlossen, kann das 
Spiel begonnen werden. 

Änderungen für Kassette: 

1. CREATER: Zeile 265 SYS(57812)»WORLD«,1 

2. ODYSSEE:Die Änderungen stehen im Listing von Zeile 
9299—9320 


Bewegung der Spielfigur 

Die Spielfigur wird ausschließlich über die Tastatur gesteu¬ 
ert. Hier die Belegung der einzelnen Tasten: 

@ = Die Spielfigur bewegt sich nach Norden 
/ = Die Spielfigur geht nach Süden 
; = Die Spielfigur läuft nach Westen 
: = Die Spielfigur schreitet nach Osten 

A = angreifen (ATTACK) 

Im unteren Fenster erscheint ATTACK—. Nun muß man eine 
Richtungstaste drücken (siehe oben), um dem Computer zu 
zeigen, in welche Richtung der Befehl zielen soll. Das Pro¬ 
gramm gibt daraufhin an, ob getroffen worden ist. Dies hängt 
von der Stärke des Spielers und von seinen Waffen ab. Ist ein 
Feind besiegt, so erhält man eine Anzahl von Goldstücken 
und, wenn man Glück hat, einen Matrosenanzug (BLUE 
TASSLE). 


T = verhandeln (TRANSACT) 

Nach Eingabe der Richtung, in die verhandelt werden soll, er¬ 
scheint die Antwort im Textfenster. Falls sich in der angegebe¬ 
nen Richtung niemand aufhält, erscheint die Meldung: »NO 
RESPONSE« 

E = betreten (ENTER) 

Mit diesem Befehl kann man in Dörfer und Städte gelangen. 

B = Schiff betreten (BOARD SHIP) 

Um auf ein Schiff zu gelangen, muß man diesen Befehl benut¬ 
zen. Man braucht aber einen Matrosenanzug (BLUE TASS¬ 
LE), damit man von der Besatzung an Bord gelassen wird. 
Ausnahme ist, wenn man das Schiff in einem Dorf kauft. 

X = Das vorher betretene Schiff wird verlassen. 
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Listings 


Odyssee 


Erläuterung der Grafik 

Ohne Hilfsmittel können Sie sich nur auf Gras fortbewegen. Bis 
auf Steinmauern können alle anderen Hindernisse überwunden 
werden. Energiemauern nehmen Ihnen 100 POWER-Einheiten ab. 

HK 

Spielfigur 

Normales Zeichen: 

! 

Ifr 

Der Ordensbruder 
Normales Zeichen: 

n 

1K 

Der Feind 

Normales Zeichen: 

# 

H 

Eine Stadt 

Normales Zeichen: 

$ 

/V- 

Wasser 

Normales Zeichen: 

% 

* 

Ein Schiff 

Normales Zeichen: 

& 

:: 

Ein Dorf 

Normales Zeichen: 

/ 

a 

■ ■ 
• ■ 

Gras 

Normales Zeichen: 

( 


Fels 

^ s*eR on .1 

+ 

■1 . 

Normales Zeichen: 

Lava 

Normales Zeichen: 

Energiemauer 

* 

Normales Zeichen: 

Zauber Saruman 
Normales Zeichen: 

t 

H 

Der dunkle Turm 
Normales Zeichen: 

— 


Mauerstein 
Normales Zeichen: 

] 

H 

Schloß eines Lords 
Normales Zeichen: 

l 

ß 

h 

Grafikbeschreibung 


F = Zeigt die verbleibenden FOOD-Einheiten. 

M = MAGIC MISSILE auslösen 

Ein weißes Quadrat läuft über den Bildschirm und tötet alle 
Feinde und Freunde. Für jedes Lebewesen erhält man 5 Gold¬ 
stücke. Man kann es nur einmal benutzen. 

R = Neues Spiel (RESTART GAME) 

Hiermit kann ein neues Spiel begonnen werden, falls man in 
einer aussichtslosen Lage ist. Der Computer fragt, ob man 
sich sicher ist, daß man ein neues Spiel starten möchte. 
Antwortet man mit »Y«, so kann man sich eine neue Spielfigur 
erstellen. 

Dörfer und Städte 

In den Dörfern und Städten des Landes erhält man viele Ge¬ 
genstände, die zur Lösung der Aufgabe beitragen. In jeder 
Stadt kann man Waffen und Kleider kaufen. Um seine Vorräte 
aufzufüllen oder seine Spielsucht zu befriedigen, muß man 
sich schon in die Dörfer bequemen. 

Kauf einer Waffe: Man betritt eine Stadt und geht in den 
WEAPONSHOP, indem man eine 1 drückt. Aus den vier ange¬ 
botenen Waffen wählt man sich eine aus, indem man die Ziffer 
der Waffe drückt. Der Ladeninhaber sagt den Preis, und man 
kann sich entscheiden, ob man die Waffe kaufen oder lieber 
seinen Geldbeutel schonen möchte. 

Der Kauf eines Kleidungsstücks vollzieht sich genauso, wie 
der Erwerb einer Waffe. 

Kaufen von Nahrung: In einem Dorf betritt man mit 1 den 
FOODSHOP und erfährt den Preis für 100 FOOD-Einheiten. 
Der Preis schwankt zwischen 32 und 52 Goldstücken und ist 
bei jedem Versuch anders. Scheint der Preis annehmbar, so 
beantwortet man die Frage ob man kaufen möchte mit »Y«, und 
der Computer zeigt an, wieviel Einheiten FOOD man besitzt. 

Hat man einmal nicht genug Geld, um den geforderten Preis 
zu bezahlen, erscheint die Fehlermeldung »YOU HAVE NOT 


Z = Inventar 

Hier wird der Name des Spielers, seine Waffen, seine Klei¬ 
dung, seine Eigenschaften, seine Kraft und die Sachen 
(TOOLS), die er bei sich trägt, auf dem Bildschirm angezeigt. 
Drückt man eine Taste, so dauert es noch einen Moment, bis 
das Spiel fortgesetzt werden kann. 

U = Tür aufschließen (UNLOCK DOOR) 

Eine Tür kann geöffnet werden, wenn man den Schlüssel zu 
ihr besitzt. 

G = Zeigt an, wieviel Goldstücke man besitzt. 

H = Gibt an, wieviel Kraft (POWER) man noch hat. 
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Variablen 

K 

= Variable für Kleidung 

W 

= Variable für Waffe 

WS 

= augenblickliche Waffe 

ARS 

= augenblickliches Kleidungsstück 

G 

= Gold 

H 

= Kraft 

Y 

= Y-Koordinate Bildschirm 

T 

= X-Koordinate Landschaft 

V 

= Vergleichsvariable 

I.X.Z 

= Laufvariablen 

P 

= Bildschirmposition Spielfigur 

S 

= Bildschirmposition bei Richtungsangabe 

Y1 

= Y-Koordinate bei Richtungsangabe 

VI 

= Zeichen unter Spielfigur 

V2 

= letztes Zeichen unter Spielfigur 

G(4) 

= Kraft der Feinde 

S%(64) 

= Sprungadressen der Befehle 

V$(1,4) 

= Sachen in Dörfern und Städten 

W$(2,4) 

= Waffen und Kleidungsstücke 

W(2,4) 

= Preis für Waffen und Kleidungsstücke 

Speicherbelegung 

048- 

12287 Basic-Programm 

12288 — 

16383 Zeichensatz 

16384 — 

16695 Maschinensprache 

16862 — 

33001 Landschaft Variablenliste 


Freunde und Feinde 

Zu Ihrem Unglück gibt es viele Ihnen feindlich gesonnene 
Krieger, die im Dienste des Zauberers stehen, jedoch nur we¬ 
nige Ordensbrüder, die Ihnen aber wertvolle Dinge geben 
können. Manche dieser Ordensbrüder stehen Ihnen aber 
auch mißtrauisch gegenüber, so daß Sie von Ihnen Geheim¬ 
wörterwissen wollen oder Sie nach Ihrer Intelligenz (INTELLI¬ 
GENCE) oder nach Ihrem Wissen (WISDOM) beurteilen. 












Odyssee_ Listings 


Werden Sie in einen Kampf mit den Feinden verstrickt, so 
erscheint im Textfenster immer HIT und MISS. HIT bedeutet, 
daß der Gegner Sie getroffen hat; MISS, daß er verfehlt hat 
Wie oft Sie getroffen werden, hängt von der Dauer des Kamp¬ 
fes, Ihrer Widerstandsfähigkeit (STAMIN A) und Ihrer Kleidung 
ab. 

Sie haben das Spiel verloren, wenn Sie keine Nahrung 
(FOOD) oder keine Kraft (POWER) mehr haben. FOOD verlie¬ 
ren Sie, wenn Sie durch das Land gehen (pro Schritt 0,2 Ein¬ 
heiten). Kraft verlieren Sie in den Kämpfen, wenn Sie getrof¬ 
fen werden. 

Hilfsmittel 

Die Hilfsmittel braucht man, um die gestellte Aufgabe zu 
lösen. Man erhält sie in Kämpfen, Dörfern und Städten und 
von den Ordensbrüdern. Wenn man »Z« drückt, werden sie 
unter TOOLS aufgelistet. 

BLUETASSLE: Matrosenanzug 

Hat man keinen Matrosenanzug, läßt einen die Besatzung 
eines Schiffes nicht an Bord. Es erscheint die Meldung »THE 
CREW DOES NOT ALLOW THIS«. 

MAGIC MISSILE: magische Waffe 

Mit ihr vernichtet man alle Feinde, leider aber auch alle 
Freunde, die auf dem Bildschirm zu sehen sind. Für jeden 
Freund oder Feind erhält man durch diese Tötungsaktion 5 
Goldstücke. Man kann sie also dazu benutzen, sich Geld zu 
verschaffen oder eine Übermacht von Feinden zu vernichten. 

KEY: Schlüssel 

Braucht man um Türen zu öffnen. 

GOLDEN KEY: goldener Schlüssel 

Erklärt sich im Spielverlauf 


SWIM-WEST: Schwimmweste 

Hat man die Schwimmweste, kann man 12 Felder weit 
schwimmen. Danach löst sie sich in Luft auf. 


Programmbeschreibung 


10 — 

25 

Variablen definieren 

33 — 

90 

Bildschirmaufbau 

100 


reagieren auf Tastendruck 

110 - 

170 

Angriff der Feinde 

180 


Spielfigur tot 

210 — 

230 

Routine für Bewegung 

1000 — 

1080 

Befehl ATTACK 

1200 - 

1290 

Inventar 

1400 — 

1499 

Befehl ENTER 

1700 — 

1720 

Neues Spiel 

2100 


Anzeige von FOOD 

2200 — 

2297 

Befehle TRANSACT 

2300 — 

2360 

Befehl EXIT 


2600 

Anzeige von GOLD 

2800 — 

2870 

Befehl BOARD SHIP 

2900 


Anzeige von POWER 

3000 — 

3020 

Befehl UNLOCK DOOR 

3600 — 

3650 

Befehl MAGIC MISSILE 

4500 — 

4540 

Befehl WEST 

4600 — 

4610 

Befehl NORTH 

5000 - 

5020 

Befehl EAST 

5500 - 

5510 

Befehl SOUTH 

9000 - 

9197 

Spielfigur erstellen 

9200 - 

9300 

Ladebild und Laden von Teil 2 

15000 — 

15540 

in Stadt oder Dorf 

16000 — 

16050 

im Schloß eines Lords 

18000 — 

18040 

Spiel gewonnen 

60000— 

60020 

DATAs 



WfWM i 


W'J/fh 

WwW 


fgautögr/ft 
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BOOTS: Schuhe 

Trägt man Schuhe, so kann man 2 Felder über felsigen 
Grund laufen. Danach sind sie verschlissen. 

MARKOF FIRE: 

Mit MARK OF FIRE kann man durch LAVA gehen. 

Verschiedenes 

Wie Sie vielleicht bemerkt haben, habe ich drei Einzeiler 
aus der Ausgabe 11/84 des 64'er Magazins in mein Pro¬ 
gramm übernommen. Im »Creater« ist es die SAVE-Routine für 
Maschinenspracheprogramme und in der »Odyssee« der Ein¬ 
zeiler zum Kopieren des Basic ins RAM. Der Einzeiler, der die 
»Odyssee« überhaupt erst ermöglicht hat, ist der zum Fest¬ 
stellen eines Bildschirmbereiches von Peter Eckart. 

(Jan Geißelmann/rg) 


Listing »Odyssee«. Beachten Sie beim Abtippen bitte 
den Checksummer. 


1 REM *************** 

2 REM * ODYSSEE : * 

3 REM * * 

4 REM * MAINPRG. * 

5 REM *************** 

6 : 

7 : 

8 : 

9 IF Z=B THEN 9000 


<006> 

<059> 

<230> 

<035> 

< 010 > 

<064> 

<065> 

<066> 

<064> 


10 DIM T(4),VS(1,4),WS(1,4),W(2,4),SX(64>: 

TI S= "000000":WS="HAND“:V1=40 <237 > 

15 G=350:Y=9:W=3:F=50:T=17061:H=300:FQR Z= 


1 TO 4:G<Z)=5:NEXT:POKE 12762,0 




<255> 


16 FOR Z=1 TO 27:READ ZS:NEXT:FDR Z=0 TO 6 

3 <21B> 

17 SX(Z)=50:NEXT:SX(64)=100:FOR Z=1 TO 16 <186> 

18 READ I:SX (I)=1*100:NEXT:FOR Z=1 TO 100 <079> 

21 I=INT(RND(0)*20):X=INT <RND(0)*440+20):I 

F PEEK(17001+<20-1)+X*20>040 THEN 21 <058> 

22 POKE 17001+(20—I)+X*20,35:NEXT:FOR 1=0 
TO 1:FOR Z=1 TO 4:READ WS(I,Z),W(I,Z):N 

EXT:NEXT <089> 

23 V»(0,1)=“FOODSHOP":V*(0,2 > = "PUB":V*(1,1 

)="WEAPONSHOP":V* <1,2 > = "ARMOURSHOP“ <094 > 

24 V*<1,4)="EXIT THE TOWN":POKE 788,52 <216> 

25 V*(0,3)="TALK TO PEOPLE":VS(1,3)=VS(0,3 

):VS(0,4)=“EXIT THE VILLAGE" <072> 

26 PRINT CHRS(147):POKE 53265,11 <203> 

33 I=T:FOR Z=1 TO 40:POKE 16604,1-256*INT( 

1/256):POKE 16605,INT(I/256):1=1+20 <102> 

34 SYS 16484:NEXT:POKE 1043+Y*40,33:IF B=5 

THEN POKE 1043+Y*40,38:POKE 55296+Y*40 
,14 <223> 

35 POKE 214,20 : SYS 58640 : PRINT "TTTTTT 

' T ' l ' T * tVT ‘ l * T ' r"l * TTVl ' TT"<VT ' f T~T*T‘T^‘T'l T I I X T T “ i <136> 

40 POKE 53265,155:POKE 53272,29:GOTO 90 <034> 

50 PRINT"ILLEGAL COMMAND":GOTO 90 <052> 

60 PRINT"NOT THERE":GOTO 90 <174> 

70 PRINT"NO WAY":GOTO 90 <221> 

B0 PRINT"PASS" <100> 


213 

214 

215 

216 

217 

218 

219 

220 
230 

1000 

1010 


1030 

1040 

1050 

1060 


1080 

1200 

1205 


THEN GOTO X 
AND(SP AND 8)=8 


THEN GOT 


2)=2 THEN 220 <135> 
16)=16 THEN S 

< 210 > 


<069> 

<061 > 

< 113> 

<231 > 

< 135> 
<065> 

< 199> 
<246> 

< 158> 

< 175> 
<084> 

<240> 

< 165> 


IF PEEK(Z)=41 AND(SP AND 
IF PEEK(Z)=37 AND(SP AND 
W=SW+1:GOTO 2180 

IF PEEK(Z)=37 AND(SP AND 16)=16 THEN G 
OTO X 

IF PEEK(Z)=42 THEN H=H—100:IF H<0 THEN 
180 

IF PEEK(Z)=42 
IF PEEK(Z)=43 
0 X 

V1=I:GOTO 70 

B0=B0+1:IF B0=2 THEN SP=SP-2 
GOTO X 

PRINT"ATTACK - ";:GOTO 10000 

IF PEEK(S)035 THEN PRINT"MISS":GOTO 
90 

1020 I=INT(RND(0)*20):IF W+A(1)>I OR ZE=5 
THEN PRINT"HIT"t ZE=0:GOTO 1040 
ZE=ZE+1:PRINT"MISS":GOTO 90 
PRINT"HIT":G(Z)=G(Z> —1:IF G(Z)<1 THEN 
G(Z)=INT(RND(0)*3)+3:GOTO 1060 
FOR Z=1 TO 5:POKE 197,64:NEXT:GOTO 90 

I=INT(RND(0)*20):PRINT" KILLED - GO 

LD FOUND :“I:G=G+I:POKE 8,40:U=40:P=3 
5 

1070 C=C+1:IF C=20 THEN PRINT"YOU GET A BL 
UE TASSLE":SP=SP+1 
GOTO 2110 

IF B=5 THEN PRINT"ONLY ON FOOT":GOTO 
90 

PRINT“ -CCLR.RVSONJ"NS:PRINT: PRINT: PRIN 
T:PRINT 

1210 FOR Z=1 TO 5:PRINT KS(Z);B(Z>:NEXT 
1215 POKE 214,5:SYS 58640:PRINT TAB(29)"F0 
OD :"INT(F):PRINT TAB(29)"GOLD :"G 
1217 PRINT TAB(29)"POWER:"H:PRINT:PRINT 
1220 PRINT:PRINT:PRINT"WEAPON : "WS 
1230 PRINT:PRINT"ARMOUR : "ARS 
1240 PRINT:PRINT"TOOLS(2SPACE>: 

1250 1=1:X=0:FOR Z=1 TO 7:IF(SP AND I)=I 
HEN X=X+1:PRINT SPS(Z)";"; 

1755 1=1*2:NEXT 

IF X=0 THEN PR INT "NO TOOL": GOTO 1290 
PRINT"CLEFT,SPACE >“ 

POKE 198,0:WAIT 198,1:G0T0 26 


11 60 


90 PRINT"CMD: 


< 128> 


100 SYS 16674:P=1043+Y*40:1=1+1:IF I<15 TH 

EN Z=PEEK(197):TA=Z*100:GOTO SX(Z) <006> 

110 1=0:IF PEEK(P—1)=35 THEN 160 <245> 

120 IF PEEK(P+l> =35 THEN 160 <153> 

130 IF PEEK(P—40)=35 THEN 160 <215> 

140 IF PEEK(P+40)=35 THEN 160 <224> 

150 GOTO 100 <176> 

160 I = INT(RND(0)*18): IF K+AI2XI THEN PRIN 
T"HIT":H=H—INT(RND(0)*5)—1:IF H<1 THEN 
180 <044> 

165 IF K+A(2)>1—1 THEN PRINT“MISSED" <008> 

170 PRINT"CMD: "j:GOTO 100 <036> 

180 PRINT NS" IS DEAD":FOR Z=1 TO 10:POKE 

198,0:NEXT:WAIT 19B,1:RUN <196> 

210 I=V1:V1=PEEK(Z) <052> 

211 IF B=0 THEN IF PEEK(Z)=40 THEN GOTO X <191> 

212 IF B=5 THEN IF PEEK(Z)=37 THEN GOTO X <203> 


1270 

1290 

1400 

1410 


PRINT“ENTER - “;:GOTO 10000 

IF PEEK(S)=36 THEN AS="A T0WN.":A=1:G 
OTO 1460 

IF PEEK(S)=39 THEN AS="A VILLAGE.":A= 
0:GOTO 1460 

IF PEEK(S)=44 THEN 16000 
IF PEEK(S)=31 THEN T=26641:Y=15:GOTO 
26 

GOTO 60 

POKE 53272,21:PRINT“CCLRJYOU HAVE ENT 
ERED "AS;:GOTO 15000 

1700 PRINT"RESTART GAME - ARE YOU SURE ? 


1420 


1430 

1440 


1450 

1460 


1710 POKE 19B,0:WAIT 198,1:GET ZS:IF ZS="Y 
"THEN PRINT ZS:RUN 

1720 PRINT"N":PRINT"I KNEW IT":GOTO 90 

2100 PRINT"FOOD: "INT(F):GOTO 90 

2110 S=S—1024:I=INT(S/40):Z=T+(40-(S-I*40) 

)*20—Y1:POKE Z,U:GOTO 90 
2160 GOTO X 

2180 IF SW=12 THEN SP=SP-16 
2190 GOTO X 

2200 PRINT"TRANSACT - ";:GOTO 10000 

2210 PRINT"OK":PRINT"==> ";:IF PEEK(S)=34 
THEN 2215 

2211 IF PEEK(S>=35 THEN PRINT"NICE DAY;TOD 
AY":GOTO 90 

2212 PRINT"NO RESPONSE“:GOTO 90 
2215 IF Yl=3 AND AI3X16 THEN 20000 
2220 IF Yl=12 AND A(5)<10 THEN 20010 
2225 IF Yl=10 AND G<100 THEN PRINT"HE WANT 

S TO HAVE 100 GOLDEN COINS.":GOTO 90 
2227 IF Yl=10 THEN G=G-100:PRINT"HE TAKES 
100 COINS":PRINT"==> ";:GOTO 2290 
2230 IF Yl=2 AND A(5X30 THEN 20010 
2235 IF Yl=4 AND A(5X20 THEN 20010 
2240 IF Yl=13 THEN PRINT“HE TELLS YOU A SE 
CRET PASSWORD.":A(5)=10:GOTO 2295 
2245 IF Yl=l THEN PRINT“HE GIVES YOU MAGIC 
AL BOOTS.":SP=SP OR 2:GOTO 2295 
2250 IF Yl=9 THEN PRINT"HE GIVES YOU A GOL 
DEN KEY":SP=SP OR 32:GOTO 2295 


<0B5> 

<004> 

< 137> 

<047> 

<249> 

<038> 

<034> 

< 142> 
< 202 > 
<073> 

< 146> 

<232> 
<201 > 

< 163> 

< 116> 

< 154> 
<07B> 

<056> 

< 000 > 

<068> 

<050> 

< 15B> 

<013> 

<219> 

< 129> 
<071 > 
<243> 

< 022 > 

<0B9> 

< 135> 

< 119> 
<083> 

<224> 

<031 > 

< 193> 
<20B> 
< 002 > 

< 160> 

<201 > 
<221 > 
<227> 

<214> 

< 157> 

< 029 > 
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Odyssee 


Listings 


Listing »Odyssee« (Fortsetzung) 


2255 IF Yl=19 AND(SP AND 32>=32 THEN PRINT 
"HE TAKE THE GOLDEN KEY.":SP=SP-32:GO 
TO 2290 

2257 IF Yl=19 THEN PRINT"HE WANTS TO HAVE 
THE GOLDEN KEY"5 GOTO 90 
2260 IF Yl = l 1 THEN PR INT" HE GIVES YOU A KE 

Y. ":SP=SP OR 6 :GOTO 2295 

2265 IF Y1=0 AND AI4X17 THEN PRINVWISDOM 
NO HIGH ENOUGH.":GOTO 20005 
2270 IF Y1=B AND A<3><22 THEN 20000 
2275 IF Yl =6 THEN PRINT"HE GIVES YOU A SWI 
M—WEST":SP=SP OR 16:GOTO 2295 
2280 IF Yl=14 THEN PRINT"HE STQLES ALL YOU 
R GOLD":G=0:GOTO 2295 
2285 IF Yl=5 THEN PRINT"HE GIVES YOU A MAG 
IC MISSILE.":SP=SP OR 4:GOTO 2295 
2290 PRINT"YOU MAY PASS" 

2295 FOR Z=1 TO 16:P0KE S+54272,Z:FOR 1=1 
TO 50:NEXT:NEXT:U=40:P=34 
2297 POKE S+54272,13:POKE S,40:GOTO 2110 
2300 PRINT"EXIT ";:IF B=0 THEN PRINT“WHAT 
?":GOTO 90 

2305 PRINT"SHIP - ";:GOTO 10000 

2310 IF PEEK(S> < >40 THEN 60 
2320 Y1=Y:POKE 5,33:PRINT”OK":IF S=P-40 TH 
EN S=P—40:Y=Y—1:GOTO 2360 
2330 IF S=P+1 THEN S=P—1:T=T—20:POKE 16604 
,(T)AND 255:POKE 16605,INT(T/256):SYS 
16384:GOTO 2360 

2340 IF S=P+40 THEN Y=Y+1:S=P—40:GOTO 2360 
2350 S=P+1:T=T+20:I=T+7B0:POKE 16604,1 AND 
255:POKE 16605,INT(1/256):SYS 16484 
2360 U=38:B=0:Vl=40:GOTO 2110 
2600 PRINT"GOLD: “G:GOTO 90 

2800 PRINT"BOARD SHIP - ";:GOTO 10000 

2810 IF PEEK (S) 038 THEN 60 
2820 IF (SP AND 1)01 THEN PRINT”NO": PRINT“ 
==> THE CREW DOES NOT ALLOW THIS":GOT 
O 90 

2830 PRINT"OK":B=5:POKE P,VI:POKE 54272+S, 
14:P=P+1:IF S=P-41 THEN Y=Y-l:GOTO 28 
70 

2840 IF S=P THEN T=T-20:POKE 16604,(T)AND 
255:POKE 16605,INT(T/256):SYS 163B4:G 
OTO 2870 

2850 IF S=P+39 THEN Y=Y+l:GOTO 2870 
2860 T=T+20:I=T+780:POKE 16604,1 AND 255:P 
OKE 16605,INT(I/256>:SYS 16484:G0T0 2 
B70 

2870 U=37:S=P—1:P=38:Vl=37:GOTO 2110 
2900 PRINT"POWER: “H:GOTO 90 

3000 PRINT"UNLOCK DOOR - ";:IF(SP AND 64 

>064 THEN PR INT "NO KEY": GOTO 90 
3005 GOTO 10000 
3010 IF PEEK (S) 0194 THEN 60 
3020 PRINT"OK":POKE S,40:POKE S-41,192:G0T 
0 90 

3600 IF (SP AND 4)04 THEN PRINT"NO MAGIC M 
ISSILE":GOTO 90 
3610 PRINT"MAGIC MISSILE" 

3620 FOR Z=1024 TO 1823:I=PEEK(Z+54272):PO 
KE Z+54272,1 

3630 IF PEEK(Z)035 AND PEEK(Z)034 THEN 3 
640 

3635 X=Z—1024:N=INT(X/40):POKE T+(40-(X-N* 
40)>*20—N,40:G=G+5:POKE Z,40 
3640 IF PEEK(Z)=30 THEN GOTO 18000 
3650 POKE Z+54272,1:NEXT:SP=SP-4:GOTO 90 
4500 V2=V1 

4505 Z=1042+Y*40:X=4510:GOTO 210 
4510 T=T+20:I=T+780:POKE 16604,1 AND 255:P 
OKE 16605,INT(I/256):PRINT"WEST" 

4520 SYS 16484:POKE P+1,V2:P0KE Z+l,33+B 

4530 F=F—.2:IF F<0 THEN PRINT"NO FOOD - 

" 5 :GOTO 180 
4540 GOTO 90 

4600 V2=V1:Z=1043+Y*40—40:X=4610:GOTO 210 
4610 PRINT"NORTH“:POKE Z+40,V2:Y=Y—1:POKE 

Z, 33+B:GOTO 4530 
5000 V2=V1 

5005 Z=1044+Y*40:X=5010:GOTO 210 
5010 T=T—20:POKE 16604,(T)AND 255:POKE 166 
05,INT(T/256):PRINT“EAST":SYS 16384 
5020 POKE P—1,V2:POKE Z-l,33+B:GOTO 4530 


< 143> 

<030> 

<150> 

<042> 

<009> 

<067> 

<077> 

<014> 

<242> 

<20B> 

< 100 > 

<098> 

< 145> 
<213> 

<081 > 


<0B4> 

<045> 

<226> 

< 111 > 

<226> 

<233> 

<209> 


<004> 


<054> 


< 020 > 
< 157> 


< 012 > 

<040> 

< 119> 

< 056> 
<066> 
<205> 

<042> 

< 220 > 

< 124> 

< 126> 
<091 > 

<076> 

< 124> 
<093> 

< 102 > 
<244> 

<107> 

< 146> 

<097> 

< 191 > 
<095> 

<027> 

<092> 

<232> 

< 191 > 
<05B> 


5500 V2=V1:Z=1043+Y*40+40:X=5510:GOTO 210 
5510 PRINT"SOUTH“:POKE Z—40,V2:Y=Y+1:POKE 
1043+Y*40,33+B:GOTO 4530 
9000 POKE 53280,0:POKE 53281,0:POKE 53272, 
21:PRINT CHR*(142),CHR*(8):AR*="SKIN" 
9010 POKE 95,0:POKE 96,160:POKE 90,0:POKE 
91,192:POKE 8B,0:POKE 89,192:SYS 4191 
9 

9020 GOSUB 9500:K*(5)=K*(5>+"00" 

9100 PRINT"<CLR,WHITE,2D0WN>"TAB(10)"CREAT 
ING A PLAYER":PRINT TAB(7)"=-=-=-=-=- 


9110 PRINT:PRINT:PRINT:FOR Z=1 TO 5:PRINT 
TAB (10) 5 K* (Z) : A* (Z) = " ": NEXT: I=7:S=0 
9115 FOR Z=1 TO 4:POKE 214,1:SYS 58640 
9120 PRINT TAB(25);:POKE 19B,0:WAIT 19B,li 
GET Z* 

9130 IF Z*=CHR*(20)AND LEN(A* (Z) ) THEN Mit 
>=LEFT*(A*(Z>,LEN (A*(Z))—1):GOTO 9165 
9140 IF LEN(A*(Z))=2 THEN PRINT:GOTO 9170 
9150 IF ASC(Z*)<48 OR ASC(Z*>>57 THEN 9120 
9160 A*(Z)=A*(Z)+Z* 

9165 PRINT Z*;:GOTO 9120 

9170 A(Z)=VAL(A*(Z)):S=S+A(Z):IF S>100 THE 
N 9100 

9175 I=PEEK(214):POKE 214,20:SYS 58640:PRI 
NT"POINTS LEFT :t6SPACE,5LEFT>"100-S: 
NEXT 

9180 INPUT"< 6 UP>YOUR NAME " ; N* 

9184 IF PEEK(2)=0 THEN FOR Z=57344 TO 6553 
5:POKE Z,PEEK(Z):NEXT:POKE 59639,20 
91B5 GOSUB 9500:A(1)=INT(A(1>/5):A(2)=INT( 
A(2)/5):POKE 2,1:P0KE 1,53 
9190 1=43168:POKE I,32:P0KE I+1,192:P0KE I 
+2,2:1=704:POKE 1,32:POKE 1+1,138 
9195 POKE 1+2,173:POKE I+3,76:P0KE 1+4,247 
:POKE 1+5,183:PRINT CHR*(147) 

9197 FOR Z=1 TO 4:B(Z)=A(Z):NEXT 
9200 PRINT TAB( 12) " <3D0WN,WHITEX« ODYSSE 
E >»" 

9210 PRINT" <DQWN>"TAB (9) "«< <2SPACE>PLEASE 
IT<2SPACE>»>" 

9220 PRINT TAB( 6 )"<DOWNX<< WHILE LOADING 
PART2 »>“ 

9230 PRINT TAB (3) "<DOWN X<<<2SPACEXO BY 
JAN GEISZELMANN<3SPACE>»>" 

9240 PRINT“ <DOWN><«-* 1984 *- 

- >»“ 

9250 PRINT TAB(4)"<3D0WN>***************** 
**************" 

9260 PRINT TAB(4)"*I29SPACE>*" 

9270 PRINT TAB(4)“************************ 
*******":PRINT"<2UP>"TAB( 6)5 
92B0 FOR Z=1 TO 27:READ Z* 

9290 FOR X=1 TO 100:NEXT:IF Z*="X"THEN PRI 
NT" .";:NEXT 
9295 PRINT Z*;:NEXT 
9297 LOAD"WORLD",8,1 

9299 REM FUER DATASETTE : ZEILE 9297 LOESC 
HEN UND ZEILE 9300-9320 EINGEBEN 

9300 PRINT:PRINT:PRINT:PRINT"<BLACK>LOAD“C 
HR*(34)"WORLD"CHR*(34)",1,1<WHITE,2UP 
>";:POKE 631,13 

9310 POKE 632,90:POKE 633,61:PDKE 634,49:P 
OKE 635,58:POKE 636,71:P0KE 637,111 
9320 POKE 638,49:POKE 639,13:P0KE 19B,10:E 
ND 

9500 K*(l>="STRENGHT.":K*(2)="STAMIN 

A.":K*(3)“"INTELLIGENCE. .. " 

9510 K* (4) ="WISD0M.": K* (5) ="PASSWO 

RDS.": SP* (1) ="BLUE TASSLE" 

9520 SP*(2)="BOOTS":SP*(3)="MAGIC MISSILE" 
:SP*(4)="MARK OF FIRE" 

9530 SP* (5) = " SW IM-WEST ": SP* ( 6 ) = " GOLDEN KEY 
":SP*(7 > = "KEY":RETURN 
10000 POKE 198,0:WAIT 198,1:GET Z* 

10010 IF Z*="@"THEN S=P-40:PRINT"NORTH — 
" 5 :Z=l:Y1=Y—1:GOTO TA+10 

10020 IF Z*=”:"THEN S=P—1:PRINT"WEST - “ 

;:Z=2:Y1=Y:G0T0 TA+10 

10030 IF Z*=“;"THEN S=P+1:PRINT"EAST - " 

;:Z=3:Y1=Y:GOTO TA+10 
10040 IF Z*="/"THEN S=P+40IPRINT"SOUTH — 

";:Z=4:Y1=Y+1:G0T0 TA+10 
10050 GOTO 80 

15000 POKE 214,3:SYS 58640:PRINT:V=1 




<230> 

<043> 

<237> 

<217> 

< 222 > 

<247> 

<245> 

<0Jft> 

< 189> 

<043> 

<062> 

<245> 

<229> 

<209> 

< 172> 

<041 > 

<075> 

< 139> 

< 011 > 

<254> 

<042> 

<039> 

<225> 

< 177> 

< 102 > 
< 210 > 
<039> 

< 108> 

< 129> 

< 195> 
< 110 > 

<039> 

< 129> 

< 149> 

<026> 

< 163> 

< 140> 
< 026 > 

< 152> 
<01B> 

< 112 > 

<162> 

<240> 

<071 > 

<034> 

<023> 

<093> 
<090> 
< 132> 
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15010 

15020 

15030 

15100 


15110 

15120 

15125 

15127 

15128 
15130 


15150 


15160 


15170 

15180 

15190 

15200 

15230 

15235 

15240 

15250 

15276 

15277 

15280 

15282 

15285 

15290 

15300 

15310 

15312 

15315 

15330 

15340 

15350 

15370 

15400 

15410 

15420 

15500 


15510 

15520 

15530 

15540 

16000 

16010 

16020 

16030 


16040 

16050 

18000 

18010 

18020 


IF Yl=9 THEN V*(A,3)="BUY A BOAT":V* 
(A,2)="TALK TO PEOPLE":V=2 <221> 

IF Yl=l THEN V=3 <192> 

IF Yl—17 THEN V*<A,3)="BUY THE MARK 
OF FIRE“:V=4 <0B4> 

1 = 1:FOR Z=1 TO 4:PRINT I"{LEFT>.) "V 
*(A,Z>:1=1+1:NEXT:PRINT"<2D0WN>WHAT 
DO YOU WANT ? "j <222> 

POKE 198,0:WAIT 198,1:GET Z*: IF VAL < 

Z*)<1 OR VAL<Z*>>4 THEN 15110 <255> 

PRINT Z*:PRINT:PRINT:ON VAL<Z*>GOTO 
15125,15127,15128,15370 <115> 

X=0:ON A+l GOTO 15230,15130 <027> 

X=1:ON A+l GOTO 15276,15130 <040> 

ON V GOTO 15200,15330,15276,15400 <05B> 

FOR Z=1 TO 4:PRINT Z"<LEFT>.) "W*(X, 

Z):NEXT:PRINT"<2D0WN>Y0UR INTEREST ? 

<038> 

POKE 198,0:WAIT 198,1:BET Z*:PRINT Z 
*:IF VAL<Z*><1 OR VAL < ZS) >4 THEN 146 
0 <075> 

Z=VAL<Z*):PRINT"<DOWN>THE "W*(X,Z>" 

COST YOU"W(X,Z)"<LEFT>. OK ? ";:U=15 
170:GOTO 15530 <233> 

I=W<X,Z):U=15180:GOTO 15500 <252> 

G=G-I:PRINT"<DOWN>OK!":IF X=0 THEN W 
*=W*<0,Z>:W=3+Z*2:GOTO 15520 <011> 

AR*=W*(1,Z):K=Z*2+1:G0T0 15520 <135> 

PRINT"THE PEOPLE HERE DO NOT KNOW AN 
YTHING.":GOTO 15520 <0B5> 

P=INT(RND(0)*20)+32:PRINT"100 FOOD U 
NITS COST YOU“P"<LEFT>. OK ? "5 <038> 

U=15240:GOTO 15530 <130> 

I=P:U=15250:F=F+100:GOTO 15500 <189> 

PRINT"<DOWN>NOW YOU HAVE“INT(F)"FOOD 
UNITS":B=G—P:GOTO 15520 <0B0> 

IF V< >2 AND V< >3 THEN 15280 <161> 

PRINT"THEY TELL YOU A SECRET PASSWOR 
D.“:B(5)=V*10:GOTO 15520 <172> 

P=INT(RND(0)*75)—50:IF G=0 THEN PRIN 
T"NO MONEY !":GOTO 1460 <157> 

PRINT"GAMBLING ...":FOR Z=1 TO 1000: 

NEXT:1=0:U=15285:GOTO 15500 <023> 

IF P<0 THEN PRINT”I'M SORRY BUT YOU 
HAVE LOST";:GOTO 15310 <212> 

IF P>0 THEN PRINT"OHH. YOU HAVE WON" 

;:GOTO 15312 <0B1> 

GOTO 15282 <13B> 

IF SGNCP)*P>G THEN P=-1*G <085> 

PRINT P*SGN(P)"!"::G=G+P:GOTO 15520 <200> 

GOTO 15520 <148> 

PRINT"<DOWN>THE BOAT COST 100 COINS 
! OK ? ";:U=15340:GOTO 15530 <140> 

1=100:U=15350:GOTO 15500 <176> 

G=G—100:Y=9:B=5:T=21101:RI=0:Vl=37:F 
OR Z=1 TO 500:NEXT <06B> 

POKE 53272,29:GOTO 23 <159> 

PRINT"THE MARK OF FIRE COST 50 ! OK 
? ";:U=15410:GOTO 15530 <216> 

U=15420:1=50:GOTO 15500 <201> 

SP=SP OR 8:G=G—I:GOTO 15520 <134> 

IF G<I THEN PRINT"{DOWN>YOU HAVE NOT 
ENOUGH MONEY !":FOR Z=1 TO 500:NEXT 
:GOTO 1460 <039> 

GOTO U <176> 

FOR Z=1 TO 700:NEXT:GOTO 1460 <031> 

POKE 198,0:WAIT 198,1:GET Z*:IF Z*<> 
“Y"THEN PRINT"N":GOTO 15520 <117> 

PRINT Z$:GOTO U <031> 

PRINT"{CLRJYOU HAVE ENTERED THE CAST 
LE OF A LORD" <250> 

PRINT"{2D0WNJF0R 50 COINS YOU GET 10 
00 UNITS OF POWER" <226> 

PRINT"DO YOU WANT ? "; <243> 

POKE 198,0:WAIT 198,1:GET Z*:IF Z*<> 
"Y"THEN PRINT"N":FOR Z=1 TO 200:NEXT 
:GOTO 26 <192> 

IF G<50 THEN PRINT"YOU HAVE NOT ENOU 
GH MONEY":GOTO 26 <223> 

PRINT Z*:FOR Z=1 TO 200:NEXT:G=G-50: 

H=H+1000:GOTO 26 <141> 

FOR Z=1 TO 16:FOR 1=1 TO 16::POKE 53 
280,1:NEXT:POKE 53281,Z:NEXT <165> 

PRINT"{CLRJCONGRATULATIONS "N* <255> 

A*="{3D0WN>Y0U HAVE MANAGED IT TO DE 
STROY THE DARK TOWER AND TO KILL THE 
“ <199> 


18030 A*=A*+” WIZARD SARUMAN.THEPEOPLE LIV 
ING IN SOSARIA HAVE MADE Y0UC2SPACE> 
TO " 

18035 A*=A*+"THEIR NEW KING FOR THE NEXT 2 
0 YEARS.<2DOWN,RVSON,SPACE>END OF RE 
PORT{SPACE,2D0WN >" 

18040 FOR Z=1 TO 183:PRINT MID*(A*,Z,1);:F 
OR 1=1 TO 150:NEXT:NEXT:END 

20000 PRINT"YOU ARE NOT INTELLIGENT ENOUGH 

20005 PRINT TAB(4)"SO THAT YOU MAY PASS.": 
GOTO 90 

20010 PRINT"YOU DO NOT KNOW THE SECRET PAS 
SWORD.":GOTO 90 

60000 DATA A,X,F,A,N,T,A,S,Y,X,R,0,L,E,X,P 
,L,A,Y,I,N,G,X,G,A,M,E 

60010 DATA 10,12,14,17,22,23,28,30,36,45,4 
6,50,55,26,21,29,DAGGER 

60020 DATA 50,AXE,B0,BOW,100,GUN,150,CLOTH 
,50,LEÄTHER,80,CHAIN,100,SHIELD,150 


<039> 

< 107> 

< 128> 
<246> 

< 152> 

< 137> 
<092> 

< 169> 

< 124> 


Listing »Odyssee« (Schluß) 


Listing »World-Creater« 


REM *************** 
REM * ODYSSEE : * 
REM * * 
REM *WORLD—CREATER* 
REM *************** 


POKE 53280,0:POKE 53281,0 
10 : 

11 : 

12 POKE 53280,0:POKE 53281,0:PRINT"<CLR,WH 
ITEJ"TAB(12)"<« ODYSSEE >>>{DOWN>" 

13 PRINT TAB (9) "<<< WORLD-CREATER >»" 
PRINT TAB (6) " {DOWNX« PLEASE WAIT 3.5 
MIN »>“ 

15 PRINT"{2D0WN>=-=-=-=-=-=-=-=-=-=—=-=-= 


16 POKE 214,20:SYS 58640:PRINT"=-=-=-=-=-= 

17 POKE 214,9:SYS 58640:PRINT TAB(6)"VERIF 
YING DATAS ..." 

18 FOR Z=1 TO 255:READ I:S=S+I:NEXT:IF SO 
25150 THEN B=l:GOTO 25 

19 S=0:FOR Z=1 TO 255:READ I:S=S+I:NEXT:IF 

S<>35192 THEN B=2:G0T0 25 

20 S=0:FOR Z=1 TO 255:READ I:S=S+I:NEXT:IF 

S<>24056 THEN B=3:G0T0 25 

21 S=0:FOR Z=1 TO 255:READ I:S=S+I:NEXT:IF 

S<>34311 THEN B=4:G0T0 25 

22 S=0:FOR Z=1 TO 255:READ I:S=S+I:NEXT:IF 

S<>29496 THEN B=5:G0T0 25 

23 S=0:FOR Z=1 TO 28:READ I:S=S+I:NEXT:IF 
S02922 THEN B=6:G0T0 25 

24 GOTO 26 

25 PRINT"ERROR IN BLOCK"B:END 

26 RESTORE:PRINT TAB(6)"<DOWN>DEFINING NEW 

TOKENS ..." 

27 FOR Z=51200 TO 51252:READ X:POKE Z,X:S= 
S+X:NEXT 

28 S=0:SYS 51200:FOR Z=12520 TO 12647:READ 

X:POKE Z.255-X:NEXT:PRINT 

29 PRINT TAB(6)"CREATINB THE WORLD ...{DOW 
N>" 

30 FOR 1=16862 TO 17420:POKE I,37:NEXT 

31 FOR 1=17421 TO 26161:POKE 1,40:NEXT 

32 FOR 1=26162 TO 3000B:POKE I,37:NEXT 

33 FOR 1=26645 TO 28006:POKE 1,40:NEXT 

34 FOR Z=30008 TO 32014:POKE Z,40:NEXT 

35 FOR Z=32015 TO 33001:POKE Z,41:NEXT 

36 READ ZI,S1:IF Zl=-1 THEN P=Sl:GOTO 36 

37 IF Zl=—2 THEN 43 

38 IF Zl=—3 THEN M=l:GOTO 36 

39 IF M=1 THEN POKE 17001+C20-Z1)+S1*20,P: 
GOTO 36 

40 READ Z2,S2:Z1=Z1—1:Z2=Z2—1:IF Z1=Z2 THE 
N 42 

41 FOR 1=17001+ <20—ZI)+S1*20 TO 17001 + (20- 
Z2)+S2*20:POKE I,P:NEXT:GOTO 36 


<006> 
<059> 
<230> 
< 162> 
< 010 > 
<064> 
<065> 
<066> 
<046> 
<068> 
<069> 

<238> 

<024> 

<213> 

<086> 

< 010 > 

<070> 

< 202 > 

<066> 

<065> 

<062> 

<082> 

<227> 
<009> 
< 126> 

<092> 

<091 > 

<040> 

<077> 

< 175> 

< 164> 

< 136> 

< 174> 

< 191 > 

< 190> 
<029> 
<216> 
<207> 

< 144> 

<069> 

<0B9> 


(33ä? 
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Odyssee 


Listings 


42 FOR 1=17001+(20-Zl)+Sl*20 TO 17001+(20- 
Z2>+S2*20 STEP 20:POKE I,P:NEXT:GOTO 36 <101> 

43 READ ZI,S1:IF Zl=-2 THEN 47 <222> 

44 P=17001+(20—ZI)+S1*20:FOR Z=P TO P+120 

STEP 20:POKE Z,41:NEXT:P=P+39 <099> 

45 FOR Z=P TO P+40 STEP 20:POKE Z,41:NEXT: 

P=P+2:FOR Z=P TO P+40 STEP 20:POKE Z,41 

:NEXT <147> 

46 GOTO 43 <030> 

47 READ Z1,S1:IF Zl=-2 THEN 50 <220> 

48 P=17001+(20—Z1)+S1*20:FOR Z=P TO P+6:P0 
KE Z,41:NEXT:P=P—18:FOR Z=P TO P+2:P0KE 

Z,41 <160> 

49 NEXT:P=P+40:FOR Z=P TO P+2:P0KE Z,41:NE 

XT:GOTO 47 <218> 

50 PRINT TAB(6>"READING ASSEMBLER-DATA ... 

":FOR Z=16384 TO 16695:READ I:POKE Z,I: 

NEXT <092> 

51 PRINT TAB(6)"CDOWNISAVING ..." <117> 

52 SYS(57812)"8:WORLD",8 <212> 

53 POKE 193,0:POKE 194,48:P0KE 174,73:P0KE 

175,129:SYS 62957:END <164> 

54 REM ***** BLOCK 1 ***** <005> 

55 DATA 120,165,1,72,41,251,133,1,169,208, 

133,3,169,48,133,5,160,0,132,2,132,4 <025> 

56 DATA 162,32,177,2,145,4,200,208,249,230 

,3,230,5,202,208,242,104,133,1,173,24 <073> 

57 DATA 208,41,241,9,12,141,24,208,8B,96 <239> 

58 DATA 129,129,129,255,24,24,24,255,24,15 

3,153,126,24,60,36,36,219,219,255,255 <126> 

59 DATA 231,195,195,195,255,255,255,255,25 

5,255,255,255,184,185,162,252,144,184 <160> 


60 DATA 168,168,152,152,254,153,152,188,16 

4,164,56,57,18,60,56,48,40,40,231,189 <145> 

61 DATA 231,66,66,231,189,231,0,48,75,132, 

0,48,75,132,32,60,62,62,62,153,255,62 <116> 

62 DATA 32,114,119,7,64,228,238,14,64,0,2, 

16,0,12B,4,0,65,78,8,168,7,182,144,18 <113> 

63 DATA 255,0,255,0,255,0,255,0,198,99,120 

,0,108,6,48,3,195,195,255,255,255,231 <123> 

64 DATA 195,195,-1,37,16,21,11,21,15,22,12 

,22,15,23,13,23,15,24,13,24,16,25,13 <013> 

65 DATA 25,17,26,14,26,18,27,15,27,16,28,1 

6,52,15,39,15,41,17,28,17,54,18,28,18 <120> 

66 DATA 38,18,42,18,58,17,58,17,61,18,61,1 

8.63.19.63.19.65.5.21.2.21.20.457.13 <074> 

67 DATA 457,13,135,1,135 <221> 

68 REM ***** BLOCK 2 ***** <020> 

69 DATA 13,136,1,136,13,134,10,134,12,133, 

11.133.13.137.10.137.12.138.11 <237> 

70 DATA 138,3,223,1,223,6,224,1,224,20,225 

,1,225,16,226,4,226,14,227,7,227,20 <242> 

71 DATA 224,15,224,20,223,17,223,9,282,9,2 

84,10,281,10,285,11,281,11,285,12,282 <109> 

72 DATA 12,284,1,311,1,313,9,312,2,312,9,3 

13,2,313,9,314,2,314,20,311,16,311,20 <066> 

73 DATA 312,13,312,20,313,13,313,15,314,13 

,314,-1,242,10,311,10,315,12,311,12 <207> 

74 DATA 315,-1,42,20,423,1,423,20,424,1,42 

4,15,439,3,439,15,455,3,455,3,440,3 <254> 

75 DATA 454,12,401,6,401,12,403,6,403,11,4 

51.7.451.11.443.7.443.7.444.7.450.11 <050> 

76 DATA 444,11,450,-1,41,19,66,19,112,18,1 

12,18,137,18,138,16,138,16,139 <034> 

77 DATA 16,147,18,148,16,148,4,229,1,229,4 

,227,4,228,6,399,1,399,6,405,1,405,8 <101> 

78 DATA 400,6,400,8,404,6,404,9,416,1,416, 

20,416,12,416,3,414,3,415,14,414,14 <000> 

79 DATA 415,18,411,8,411,10,408,10,410,14, 

39,5,39,3,39,1,39,7,41,2,41,7,42,7,43 <104> 

80 DATA 9,41,9,53,15,42,11,42,11,43,11,44, 

13,46,9,46,15 <208> 

81 REM ***** BLOCK 3 ***** <034> 

82 DATA 48,11,48,13,50,9,50,15 <016> 

83 DATA 52,11,52,12,53,11,53,2,43,2,54,3,4 

9,3,50,5,43,5,52,4,52,4,60,2,60,2,66,7 <133> 

84 DATA 45,7,57,6,54,6,60,3,56,2,56,16,58, 

16,59,15,54,15,58,14,55,9,55,8,58,8,61 <210> 

85 DATA 9,58,9,61,13,59,11,59,14,60,11,60, 

12.62.4.62.14.61.14.66.10.63.10.64.13 <112> 

86 DATA 64,12,64,17,70,13,70,14,71,13,71,1 

8,72,14,72,15,73,14,73,12,73,1,73,6,72 <169> 

87 DATA 3,72,2,68,1,68,17,62,17,66,18,64,1 

8,66,17,68,10,68,15,65,15,67,3,65,3,66 <211> 

88 DATA 4,64,4,69,8,70,2,70,9,71,8,71,11,6 

9,11,72,13,66,9,66,8,64,8,69,6,64,6,68 <215> 

89 DATA 15,57,8,57,12,370,8,370,12,366,8,3 


66,12,367,12,369,8,367,8,369,-1,42,12 <163> 

90 DATA 487,12,516,13,487,13,516,15,440,15 

,454,-1,43,20,382,1,383,20,383,1,383 <0B9> 

91 DATA B,384,1,384,4,381,1,381,-1,29,40,4 

86,1,486,40,518,1,518,1,486,1,518,19 <105> 

92 DATA 486,19,518,5,500,5,508,6,500,6,508 

,11,501,7,501,2,486,2,518,20,486 <160> 

93 REM ***** BLOCK 4 ***** <047> 

94 DATA 20,518,10,500 <091> 

95 DATA 7,500,11,507,7,507,10,508,7,508,11 

,502,11,507,-1,37,3,509,3,516,4,509 <030> 

96 DATA 4,516,5,515,5,600,6,515,6,600,7,51 

5,7,600,8,509,8,516,9,509,9,516,7,509 <169> 

97 DATA 5,509,9,510,5,510,-1,38,5,511,5,51 

4,6,511,6,514,7,511,7,514,-3,0 <029> 

98 DATA—1,41,0,54,3,43,3,47,14,61,15,63,2, 

60,7,53,-1,36,17,23,7,105,1,227,-1 <246> 

99 DATA 39,9,223,16,56,3,360,-1,31,8,447,- 

1,44,1,402,-1,41,7,283,12,2B3,6,64 <229> 

100 DATA-1,34,3,39,12,73,2,43,4,64,6,65,19 

,66,11,67,14,71,10,311,8,402,13,56 <233> 

101 DATA 5,748,1,77,9,368,0,60,-1,30,7,504 

,-1,242,2,507,-1,194,3,507 <051> 

102 DATA-2,0,4,102,10,102,2,160,7,160,12,1 

60,17,160,4,200,17,200 <111> 

103 DATA 9,244,7,274,12,274,7,286,12,286,- 

2,0 < 222 > 

104 DATA 10,97,10,113,12,247,13,201,13,205 

,19,211,6,211,6,244,19,244,6,250,19 <231> 

105 DATA 250,12,241,12,253,6,283,19,283,-2 

,0 <155> 

106 DATA 169,4,141,37,64,141,40,64,162,1,1 

42,36,64,142,42,64,202,142,39,64,142 <050> 

107 DATA 45,64,169,216,141,43,64,141 


108 REM ***** BLOCK 5 ***** 

109 DATA 46,64,162,21,160,0,185,33,7,153,3 
2,7,185 

110 DATA 33,219,153,32,219,200,192,39,208, 
239,202,208,5,169,0,76,200,64,173 

111 DATA 36,64,105,39,144,12,238,37,64,238 
,40.64,238,43,64,238,46,64,141,36 

112 DAT.' 64,141,42,64,141,39,64,141,45,64, 
206,45,64,206,39,64,76,33,64,169,3 

113 DATA 141,137,64,141,140,64,162,255,142 
,139,64,142,145,64,202,142,136,64 

114 DATA 142,142,64,169,215,141,143,64,141 
,146,64,162,21,160,40,185,30,7,153 

115 DATA 31,7,185,30,219,153,31,219,136,19 
2,1,208,239,202,208,5,169,1,76,200 

116 DATA 64,173,136,64,105,39,144,12,238,1 
37,64,238,140,64,238,143,64,238, 146 

117 DATA 64,141,136,64,141,139,64,141,142, 
64,141,145,64,23B,139,64,23B,145,64 

118 DATA 76,133,64,240,5,169,0,76,209,64,1 
69,39,141,223,64,169,4,141,224,64 

119 DATA 162,20,189,101,70,141,32,7,72,173 
,223,64,141,254,64,173,224,64,24,105 

120 DATA 212,141,255,64,104,201,37,208,5,1 
69,14,76,253,64,169,13,141,248,218 

121 DATA 173,223,64,24,105,40,144,14,238,2 
24,64,141,223,64,160,40,140 

122 REM ***** BLOCK 6 ***** 

123 DATA 5,65,76 

124 DATA 30,65,141,223,64,160,40,140,5,65, 
202,208,186,96,160,0,162,8,189,40 

125 DATA 49,140,15,3,42,234,109,15,3,157,4 
0,49,202,208,239,96 

126 : 

127 : 

128 : 

129 ******************************** 


130* ODYSSEE * 

131 * * 

132 * WRITTENBY * 

133 * * 

134 * J A N GEISZELMANN* 

135 * * 

136 * 1984 * 

137 ******************************** 

138 * JOSEF-ROEMER STRASSE 17 * 

139 * * 

140 * 5060 BERGISCH GLADBACH 2 * 

141 * * 


142 * TELEF ON : 02202 / 53256 * 

143 ******************************** 


<043> 

<063> 

< 165> 

< 174> 

< 193> 
<241 > 

< 173> 
<216> 
<221 > 
<043> 
<039> 

< 199> 
<063> 
<23B> 

< 124> 
<078 > 
<099> 

< 178> 

< 010 > 

<1B4> 

< 185> 

< 1B6> 
< 001 > 
<246> 
<219> 

< 164> 
<221 > 
<244 > 
<223> 

< 182> 
<009> 
<091 > 
<227> 
<078> 
<229> 
<201 > 
<015> 
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Lösungen 


Ring of Power 

Vorbei an Drachen und Hausmäusen sollen Sie den Thron¬ 
saal finden, in dem der >Ring of Power« liegt. Ihr Weg führt Sie 
durch ein großes Schloß, einen Schloßgarten und über unter¬ 
irdische Quellen. 

Für alle, die diesen Weg noch nicht gefunden haben, der 
Lösungsweg: 

take lamp, lamp on, north, take key, south, east, north, north, 
east, take can, north, west, west, south, west, west, north, 
take key, south, south, south, take bottle, east, east, east, 
north, east, open ehest, take sword, take armour, east, north, 
north, take credit card, south, south, south, open door, south, 
south, take honey, south, west, west, west, take cork, west, 
west, north, drop key, take bottle, south, east, east, east, east, 
east, fill bottle, north, north, north, west, west, south, west, 
north, up, pay, east, drop cork, take boat, east, east, east, 
east, drop credit card, take ball, west, west, north, north, 
north, empty bottle, drop boat, up, kill dragon, west, west, 
open door, west, drop bottle, take coins, north, west, west, 
negotiate customs, drop coins, east, east, south, open door, 
south, east, open door, east, east, take rope, north, west, take 
guide, east, south, west, west, north, take note, inve (Zahl 
notieren), drop note, west, west, west, west, south, drop key, 
take coins, east, up, pay, west, north, drop rum, north, north, 
drop honey, east, south, south, east, down, pay, west, take 
key, take plank, east, up, pay, west, north, drop key, south, 
take key, north, north, east, open door, drop key, east, take 
key, west, south, south, south, drop plank, north, north, north, 
take key, south, south, south, south, east, north, open door, 
drop key, north, open ehest, take jewel, south, drop armour, 
take key, west, open clam, north, north, east, up, pay east,, 
east, drop ball, drop can, drop rope, drop treasure key, west, 
down, pay, west, north, take key, west, north, north, east, 
east, take crown, west, west, south, south, south, south, 
south, dial ... (notierte Zahl), take orb, north, west, south, 
west, west, north, north, drop guide, north, east, east, take 
pulley, west, west, south, south, east, east, north, east, north, 
north, east, south, south, south, take pearl, north, north, east, 
up, pay, east, drop pulley, west, down, pay, take cage, up, pay, 
east, drop crown, drop orp, take pulley, take rope, south, 
south, drop pulley, drop rope, take jigsaw, north, north, take 
can, east, east, north, drop cage, north, open door, oil door, 
open door, drop can, south, west, drop key, west, take crown, 
take key, take orb, east, east, north, north, west, south 
(Postertext notieren), west, west, west, north, north, west, 
south, south, south, east, south, say ... (Postertext), south, 
south, west, north, take ring. 

(Rüdiger Ihlo/rg) 
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Lageplan 5. Etage 
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So löse ich 
Ultima III 

Viele Abenteurer werden beim Ver¬ 
such Ultima III zu lösen sicherlich 
schon auf Schwierigkeiten gestoßen 
sein. Um diese Schwierigkeiten zu 
beseitigen, haben wir die wichtigsten 
Lösungstips für dieses Spiel nieder¬ 
geschrieben. 

Wichtig, wenn auch im Anleitungsbuch leicht übersehbar, ist 
die Tatsache, daß ein Spieler, der im Level gestiegen ist, mit 
Lord British reden muß. Erst dadurch kann er die gewonnene 
Erfahrung in Hit-Points (Lebenskraft-Punkte) umsetzen. 

Hit-Points kann man außerdem aufbessern, indem man zum 
Dungeon des Feuers geht. Dort befindet sich in der zweiten 
Etage eine Quelle, von der man trinken sollte. 

Sie tun gut daran, wenn Sie bei der Zusammenstellung der 
Gruppe nicht nur gleiche Charaktere nehmen. Als ideale Kom¬ 
bination erwies sich die Zusammenstellung der Gruppe aus 
einem »Cleric«, einem »Wizard«, einem »Fighter« und einem 
»Thief«. Statt des Klerikers und des Kämpfers können Sie aller¬ 
dings auch einen Paladin nehmen, der Klerikersprüche be¬ 
nutzen kann und auch im Kampf stark ist. 


Der Dieb hat den Vorteil, daß er in den Dungeons (Höhlen¬ 
labyrinthen) Fallen aufspüren kann. Auch beim Umgang mit 
»Powders« stellt er sich geschickter an, als die anderen 
Charaktere. Die positive Eigenschaft des Zauberers und des 
Klerikers ist das Zaubern; die Sprüche des Klerikers haben 
mehr eine friedfertige Natur (Heilen, Schatzkisten öffnen etc.), 
wogegen der Zauberer seine Fähigkeiten besser im Kampf mit 
Gegnern einsetzen kann. Kämpfer sind besonders stark, wenn 
es darum geht, einem Feind zu widerstehen. 

Dies waren ein paar allgemeine Tips, doch nun zur Lösung. 
Alle in diesem Artikel angegebenen Koordinatenangaben 
beziehen sich übrigens auf das Schloß des Lord British. Sind 
beispielsweise die Koordinaten 8W und 35S angegeben, 
dann müssen Sie von Lord British’s Castle aus 8 Schritte nach 
links (Westen) und 35 Schritte nach unten (Süden) gehen. 

Kämpfe 

Kämpfen ist in diesem Spiel unerläßlich, denn durch das 
Töten von Monstern erhalten Sie Erfahrungspunkte, durch die 
Sie später in Ihrem Level aufsteigen. 

Gegen sehr starke Gegner wie zum Beispiel Drachen, 
Balrons oder größere Ansammlungen von Wachen, empfiehlt 
es sich, Powders einzusetzen. Powders verlangsamen den 
Bewegungsablauf der Gegner. 

Gegen die sehr häufig auftretenden Skelette sollten Sie mit 
dem Klerikerspruch A (Pontori) kämpfen. Vor Benutzung 
dieses Spruches sollte jedoch nicht angegriffen werden, da er 
sonst fast immer mißlingt. Das gleiche gilt auch für den Zauber¬ 
spruch A (Repond), der gegen Orcs und Orc-ähniiche Monster 
verwendet werden kann. 

Bei den Kämpfen gegen den Fußboden sollten Sie alle 
Spieler in der untersten Reihe postieren. Attackieren Sie dann 
immer P 1 " nit Hilfe von Schuß-, Schleuder- oder Wurfwaffen 
nach Norden (Oben). 

Waffen 

Es gibt Unmengen verschiedener Waffentypen. Davon sind 
die Nahkampfwaffen am uneffektivsten. Schuß-, Wurf- und 
Schleuderwaffen sind also ganz klar zu bevorzugen. 

Wenn Sie noch nicht genügend Geld haben, sich bessere 
Waffen zu kaufen, wählen Sie Slings; Slings sind die billigsten 
auf Entfernung wirkenden Waffen. Sollte Ihr Geld ausreichen, 
dann gehen Sie zur Stadt Dawn. Dort gibt es alle Waffen, die 
man haben möchte. 

Wenn Sie mit Hilfe dieser Waffen sehr stark und gewandt 
sind, lassen sich die Gegner vernichten, ohne überhaupt mit 
ihnen in Berührung zu kommen. 

Gold 

Sobald Sie einen Gegner besiegt haben, können Sie all sein 
Gold und sonstige Besitztümer nehmen. Wenn Ihre Charakte¬ 
re genügend Kraft besitzen, können Sie ganze Städte entvöl¬ 
kern. Das bringt Ihnen neben großem Geldreichtum noch eine 
Menge Erfahrungspunkte. 

Wenn Sie die Schatztruhen öffnen, sollten Sie das unbe¬ 
dingt mit dem dafür vorgesehenen Klerikerspruch B (Appar 
unem) tun. So vermeiden Sie hinterlistige Fallen, die an den 
Truhen befestigt sein können. In den Höhlen ist außerdem ei¬ 
ne Unmenge Gold zu finden. Dessen habhaftzu werden erfor¬ 
dert allerdings viel Geduld. 

Dawn 

Dawn ist eine Stadt, in der man so ziemlich alles bekommen 
kann, was man sich wünscht. Dort gibt es Powders, Gems, 
bessere Rüstungen und bessere Waffen als in allen anderen 
Städten. Dawn hat die Koordinaten 8 West, 35 Süd, und er¬ 
scheint nur zu Mondstellung (0/0). 
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Schiffe 

Um ein Schiff zu bekommen, müssen Sie erst einmal die 
Mannschaft des Piratenschiffs vernichtet haben. Wenn Sie 
beim Kampf taktisch klug Vorgehen und den richtigen Weg 
einschlagen, werden Sie kein einziges Mal von der Kanone 
getroffen. Falls mal kein Schiff kommen sollte, brauchen Sie 
nicht gleich die Geduld zu verlieren. Manchmal kann es sehr 
lange dauern, bis sich eines zeigt. 

Wenn Sie Ihr Boot abstellen, sollten Sie übrigens darauf 
achten, daß es an einer Stelle steht, an die der Strudel nicht so 
schnell herankommen kann. Abgestellte Schiffe können vom 
Strudel zerstört werden. Wenn Sie sich gerade dann auf einer 
Insel befinden, auf der es keine Mondtore gibt, haben Sie 
eben Pech gehabt. 

Dungeons 

Unter Dungeon versteht man unterirdische Höhlen¬ 
systeme. Die Etage, in der sie sich befinden, wird dabei als 
Dungeon-Level bezeichnet, was aber nichts mit dem Level zu 
tun hat, in dem sich Ihre Charaktere jeweils befinden. 

Bevor Sie die Höhlen erforschen, sollten Sie sich ein paar 
Gems (Juwelen) besorgen. Davon brauchen Sie mindestens 
acht Stück; bekommen kann man sie in den Städten Dawn, 
Devil Guard oder Grey. Mit Hilfe von Gems lassen sich die 
einzelnen Dungeon-Levels kartographieren. Außerdem be¬ 
nötigen Sie Fackeln, die es in den oben genannten Städten zu 
kaufen gibt, in denen es auch Gems gibt. 

Marks 

Insgesamt gibt es vier Marks, die sich in Dungeons zumeist 
im 8. Level befinden. Jeder der Spieler muß jede der Marks 
besitzen. Das betrifft auch die Toten, also müssen Verstor¬ 
bene vor dem Suchen nach Marks wieder zum Leben erweckt 
werden. Das kostet zwar viel Geld, ist aber unbedingt not¬ 
wendig. 

• Mark of Force: Diese ist in der Höhle des Feuers im achten 
Level zu finden. Die Koordinaten sind 19 Süd, 3 Ost, 1 Nord, 

1 Ost, 2 Nord. Mit Hilfe der Mark of Force kann man unbe¬ 
schadet durch Kraftfelder gehen. 

• Mark of Fire: Sie befindet sich in der Höhle im Nordwe¬ 
sten, ebenfalls im 8. Level. Die Koordinaten sind 2 Süd, 12 
Ost, 1 West, 2 Nord. Die Markof Fire ermöglichtes, ungehin¬ 
dert Lava zu durchqueren. 

• Mark of Kings: Die Mark of Kings ist im selben Dungeon 
wie die Markof Fire, aber schon im 1. Level. Mit ihrer Hilfe kann 
man ein bestimmtes Schloß betreten. 

• Mark of Snake: Sie ist auf einer Insel zu finden, die man so¬ 
wohl per Schiff, als auch auf schnellerem Weg durch ein 
Mondtor erreichen kann. Die Koordinaten des Mondtores 
sind 6 West, 41 Süd, 3 West, 1 Nord. Das Tor erscheint zu 
Mondstellung (3/1). Verlassen kann man die Insel bei (1/3). 
Über diese Mark jedoch später mehr. 

Ambrosia 

In dieses »längst vergessene Land« gelangen Sie, indem 
Sie mit dem Schiff in den Strudel fahren. Sie werden dabei nur 
sterben, wenn nicht jeder der 4 Charaktere alle Marks besitzt. 
Ziehen Sie also nicht die Disk heraus, auch wenn es so aus¬ 
sieht, als ob Sie sterben würden. 

Kartographieren Sie das Land mit der Hilfe eines Gems, da 
man sehr leicht die Übersicht verlieren kann. Ambrosia ist 
schließlich ein ziemlich dunkles Land, Sie sehen dort fast 
nichts. 

An den vier »Shrines« (Altäre) die dort zu finden sind, kann 
man die Persönlichkeitsattribute der Charaktere (Intelligence, 
Magic Points etc.) erheblich verbessern. Dafür müssen Sie al¬ 
lerdings tief in die Tasche greifen. 


Wenn Sie die Insel verlassen wollen, finden Sie im Südwe¬ 
sten ein Schiff. 


Cards 

Geben Sie auf jedem der Altäre in Ambrosia »Other Cmd: 
Search« ein. Sie erhalten dann insgesamt vier Karten, die Sie 
zur Lösung des Abenteuers unbedingt benötigen. 


Wachen 

Wachen lassen sich nicht nur verlangsamen (Powders), 
sondern auch bestechen. Das geht mit »Other Cmd: Bribe« 
oder »Other Cmd: Suite«. Sie werden dabei lediglich 100 
Goldstücke los. 


Exotics 

Exotic-Rüstungen und Exotic-Waffen benötigt man unbe¬ 
dingt für den Kampf im Schloß des bösen Exodus. Vergessen 
Sie nicht, die Exotic-Rüstungen vor dem Betreten des Schlo- 
ßes anzulegen und sich mit den Exotic-Waffen auszurüsten. 

Exotics können Sie auf kleinen Inseln finden, auf den Sie 
»Other Cmd: Dig« eingeben müssen. Denken Sie daran, daß 
jeder der 4 Charaktere Exotics braucht. 


Silversnake > 

Am Eingang der Insel, auf der das Schloß von Exodus steht, 
befindet sich eine Schlange; sie bewacht den Eingang. Um an 
ihr vorbeizukommen, müssen Sie die Mark of Snake besitzen. 
S f-T >n Sie sich mit Ihrem Schiff direkt unter die Schlange und 
geben jetzt »Yell evocare« ein. Um aus der Bucht wieder her¬ 
auszukommen, müssen Sie genau das gleiche tun. 


Das Schloß des bösen Exodus 

Für den gefährlichen Weg durch das Schloß sollten Sie sich 
erst Pferde besorgen. Wenn Sie auf Exodus' Insel sind und 
noch kein Pferd haben, verlassen Sie die Insel durch das 
Mondtor unten rechts. So auf das Festland gelangt, können 
Sie sich jetzt Pferde kaufen und durch Mondtore wieder die 
Insel betreten. 

Mit dem Pferd haben Sie den Vorteil, daß Sie sich doppelt so 
schnell bewegen können wie ein Fußgänger, und deswegen 
einigen Kämpfen entgehen. 

Wenn Sie das Schloß betreten haben, halten Sie sich links. 
Da Ihnen nun einiges entgegenkommt, finden die Powders 
jetzt gezielte Verwendung. Folgen Sie dem langen Gang bis 
ganz nach oben, dann biegen Sie rechts ein. In der Mitte des 
Schloßes gehen Sie wieder nach oben. Nach vier Kämpfen 
gegen den Fußboden (Sie haben richtig gelesen, der Fuß¬ 
boden greift Sie an) stehen Sie vor Exodus. 


Die Vernichtung von Exodus 

Treten Sie an den ersten Slot von links. Dort muß die »Card 
of Love« eingesteckt werden. Tun Sie das mit dem Befehl 
»Other Cmd: Insert«, nach der Eingabe der Richtung und »L« 
für Card of Love. Vor dem zweiten Schlitz tun Sie das gleiche, 
diesmal allerdings mit einem »S« für Card of Sol. In den dritten 
Kartenschlitz stecken Sie die Card of Moon (»M«). Zum 
krönenden Abschluß des ganzen Abenteuers können Sie 
jetzt siegessicher Exodus’ Tod belächeln: Schieben Sie ihm 
mit einem hämischen Grinsen die Card of Death (»D«) in den 
vierten Schlitz. 

(Holger Ocken/M. Kohlen/rg) 
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Mask of the 
Sun 

Sie sollen die Sonnenmaske der Azteken finden. Behindert 
werden Sie von Ihrem Rivalen »Roboff«, einem Leoparden und 
anderen Schwierigkeiten. 

Für alle, die bis jetzt am Spiel verzweifelt sind, hier der 
Lösungsweg. 

Diskette Seite A: 

Leave plane, get all, in jeep, NW, W, SE, put gun, put match, 
put amulet, put map, put knife, out jeep, get head, put head on 
statue, in jeep, getfood, get amulet, get lamp, get match, S, E, 
out jeep, in hut, give food, out hut, in jeep, W, W, W, NW, F. 

Diskette Seite B: 

W, out jeep, down vine, light match, light lamp, F, F. 

An dieser Stelle den Spielstand durch Eingabe von SAVE 
GAME unter einem beliebigen Namen abspeichern! 

SW, jetzt den Lavafluß überqueren, wenn dies beim ersten¬ 
mal nicht gelingt, den abgespeicherten Spielstand mit 
RESTORE GAME und Angabe des Filenamens wieder ein- 
laden und nochmal versuchen. 

Wenn man drüber ist, weiter mit FORWARD, auf die Fragen 
der Gesichter mit dem Wort XOTZIL antworten. 

Weiter mit: F, F, F, put amulet in hole, get mask, search altar, 
get mask, return, wear mask, go door, F 

Auf die Frage der Sonne antwortet man: A coffin 

Jetzt kommt der Irrgarten, gehen Sie R, L, F, L, R, R, go door 

Von hier ab müssen Sie den Irrgarten solange durch¬ 
suchen, bis Sie in einem Raum auf einen Ganoven stoßen, der 
von Ihnen mit vorgehaltenem Revolver die Maske der Sonne 
verlangt. 

Leider kann ich dorthin keine genaue Wegbeschreibung 
mehr liefern, da es mir nur einmal gelungen ist, dorthin zu 
gelangen, aber eine bißchen Suchen macht ja auch Spaß. 

Geben Sie dem Mann die Maske durch: GIVE MASK 

Wenn der Leopard sich Ihnen zuwendet weiter mit: PLAY 
FLUTE 

Herzlichen Glückwunsch, YOU HAVE WON THE GAME!!! 

(Frank Schneider/rg) 


Critical Mass 

ln fünf großen Städten hat ein Größenwahnsinniger, der die 
Weltherrschaft übernehmen möchte, Zeitbomben versteckt. 
In einem Wettlauf gegen die Zeit haben Sie als Agent die Auf¬ 
gabe, alle Bomben zu finden und zu entschärfen. 

Sollte Ihnen dies bisher nicht gelungen sein, wird Ihnen 
unsere Lösung bestimmt weiterhelfen. 

Vorbemerkung: Da dieses Programm mit einer laufenden 
Uhr arbeitet, darf die Eingabe der einzelnen Befehle nicht zu 
langsam erfolgen. 

Get envelope, open envelope, read sign, get flowers, W, 
push button, D, jump (erst mit RETURN abschließen, wenn 
Sie den 4. Stock erreichen), W, go zoo, N, W, buy peanuts, E, 
feed peanuts, E, get bomb, throw bomb, E, read sign, get pa- 
per, use broom, read paper, W, W, S, S, go un, E, go alley, get 
bottle, S, E, read sign, W, (falls nötig RETURN drücken, bis die 
Uhr 10:00 anzeigt), go deli, buy chicken soup, W, W, go air- 
port, go london, E, S, buy newspaper, read newspaper, N, go 
telex, kicktelex, leave telex, get instrument, E, give flower, W, 
W, W, go bridge, N, say lithium, S, W, go airport, go rome, S, go 



ruins, E, N, lookdoor, read note, E, E, getflashlight, W, W, S, E, 
go airport, go paris, S, go laundry, go laundry, ring bell, give re¬ 
ceipt, W, S, W, S, E, E, S, S, E, get key, W, N, N, W, W, N, N, eat 
soup, E, S, S, go airport, go new york, go miami, E, go beach, 
N, N, read sign, S, S, S, S, read sign, save game (1), call gid- 
get, (falls Sie kein TOWEL gewonnen haben, RESTORE (1), 
sonst weiter), N, N, W, go airport, gosanjuan, W, godocks, get 
gas, clean deck, W, push button, S, 8x E, go house, knock 
door, major, clue, stuportino, N, W, W, S, push button, 14x S, 
6x E, N, W, E, E, N, N, E, N, N, look corner, say sneezer, N, U, 
U, S, duck (sofort!), S, insert key, N, D, N, N, save game (2), 
(Raketen mit IJKM & SPACE abschießen; falls es nicht klappt, 
RESTORE (2) eingeben.) (Thomas R.A. Wolf/rg) 


Voodoo Castle 

Voodoo Castle von Scott Adams ist schon ein relativ betag¬ 
tes Adventure, das den Spieler aber vor eine Vielzahl von Pro¬ 
blemen stellt. 

Ein Problem sind die vielen unnützen Dinge, die überall 
herumliegen. Man versucht soviel wie möglich mitzuschlep¬ 
pen und läßt dabei wichtige Sachen liegen. 

Die folgende Anleitung führt zur vollständigen Lösung des 
Adventures. Richtungen wie North, West, etc. sind in der 
Anleitung ausgeschrieben, können beim Eintippen aber mit 
dem Anfangsbuchstaben abgekürzt werden. 

Für die, die das Adventure lieber selber lösen wollen, aber 
irgendwo steckengeblieben sind, noch drei kleine Hinweise: 

— Die Plakette können Sie nur in dem Loch unter dem Kes¬ 
sel lesen. Zum Lesen benötigen Sie die Glasscherben. 

— Die Tierköpfe kann man mit »pull heads« von der Wand 
nehmen, wenn man das Schwert dabei hat. 

— In Medium Maegen’s Mad Room können Sie das Medium 
erscheinen lassen (say medium). Es gibt Ihnen einen 
kostbaren Hinweis, den Sie nur richtig deuten müssen. 
Beachten Sie vor allem das Wort zwischen den Gedan¬ 
kenstrichen. 

Für die Ungeduldigen jetzt die genaue Anleitung: 

open coffin, get ring, east, wave ring, go chute, get plaque, 
go hole, examine ball, get knife, west, drop knife, south, get 
glass, west, south, east, get sword, get shield, west, north, 
east, north, west, gofireplace, getidol, clean idol, south, east, 
south, east, move kettle, go hole, read plaque, get foot, drop 
plaque, drop glass, up, north, pull heads, turn 38, turn 33, get 
hammer, drop heads, drop sword, east, east, get chems, 
west, mix chems, drinkchems, west, south, west, west, south, 
go door, get saw, exam graves, get clover, east, north, east, 
north, drop foot (daraufhin kommt die Frage des Computers: 
»ON WHAT?« Tippen Sie ein: on man), north, go window, get 
doll, south, south, drop doll, south, climb stairs, get statue, 
down, north, west, go fireplace, open flue, go flue, pull nails, 
drop nails, get boards, drop boards, saw grating, drop grating, 
press button, push sweep, read paper (diese Eingabe dient 
nur zum Verständnis des folgenden und kann, wie alle 
»Read...«-Eingaben, weggelassen werden), drop paper, 
down, down, south, east, south, east, north, east, east, drop 
statue, sayzap, getbag, west, drop shield, getbook, get stick, 
read book, west, south, west, north, drop ring, drop hammer, 
east, go chute, wave bag, go crack, get page, south, read pa- 
ge, go hole, examine ball, west, get knife, get doll, circle coffin, 
wave stick, yell chant — 

Jetzt haben Sie es tatsächlich geschafft. Wenn Sie sich die 
Beschreibung der Kapelle genau ansehen, werden Sie lesen, 
daß ein lächelnder Graf Christo im Raum steht. Das ist aber 
auch alles. Ansonsten steht da nur das wohlbekannte »AD¬ 
VENTURE OVER! HIT -Y«. (Stephan Keller/rg) 
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Pi rate 
Ad venture 

Hier ist die Lösung des »Pirate Adven- 
ture« von Scott Adams. 


Das Pirate Adventure ist mit seinen zirka 20 Räumen ein 
relativ »kleines« Adventure. In der Lösungsanleitung sind die 
Richtungsbefehle (North, East, etc.) ausgeschrieben. Bei der 
Eingabe können sie jedoch abgekürzt werden. Das Pro¬ 
gramm sagt dem Spieler meist nicht, wo man sich gerade be¬ 
findet. Wer sich also die Gegend anschauen will, muß erst 
»look« eingeben. 

Hinter »say yoho« ist der Zielort in Klammern angegeben. 
Die Anweisung muß so oft wiederholt werden, bis man sich 
am angegebenen Ort befindet. Nun die Schritt-für-Schritt- 
Lösung: 

get rum, get sack, climb stairs, get book, read book, go pas- 
sage, east, get torch, get bag, say yoho (sandy beach), open 
bag, drop bag, get matches, east, go shack, give rum, get 
ehest (wenn der Pirat sie nicht hergeben will, dann versuchen 
Sie es noch einmal), get parrot, west, west, drop ehest, drop 
crackers, drop parrot, drop book, east, east, go path, go 
crack, light torch, go shed, get hammer, get wings, north, go 
crack, unlight torch, down, west, west, drop wings, get book, 
drop torch, drop matches, say yoho (outside building), climb 
window, down, pull nails, get nails, get rüg, drop rüg, get keys, 
climb stairs, go passage, east, get bottle, say yoho (sandy 
beach), drop keys, drop hammer, drop nails, get wings, go 
lagoon, north, get water, get fish, south, west, drop wings, 
drop book, get torch, get matches, get keys, east, east, go 
cave, light torch, down, give fish, unlock door, go hall, east, 
get sails, get lumber, drop bottle, go shed, get shovel, north, 
west, go pit, up, west, drop torch, drop matches, west, west, 
drop sails, drop lumber, get wings, go lagoon, dig anchor 
(solange bis die Meldung OK kommt, bei »I don’t find anything« 
die Eingabe wiederholen), get anchor, west, unlock ehest, 
exam ehest, get plans, build ship, drop plans, exam ehest, get 
map, drop keys, drop wings, get book, say yoho (outside buil¬ 
ding), climb window, go passage, east, wake pirate, say yoho 
(sandy beach), drop book, get crackers, get parrot, go ship, 
set sails, (wenn der Pirat Einwände wegen der Gezeiten 
macht, dann wiederholen Sie den Befehl, bis er ablegt) go 
shore, dig, get bottle, south, east, go monastery, drop parrot, 
get dubleons, read map, west, go 30, dig, get box, west, 
north, give rum, south, wake pirate, north, go ship, set sails, go 
shore, get hammer, open box, drop box, drop hammer, get 
stamp, get book, say yoho (outside building) climb window, 
down, drop stamps, drop dubleons, score 

Wer jetzt glaubt, von Scott Adams zu hören, daß man ein 
guter Abenteurer sei, wird enttäuscht. Man muß schon sehr 
genau hinsehen, um die zwei Worte »YOU WON!« zu ent¬ 
decken. Alles was bleibt, ist die Befriedigung ein Adventure 
gelöst zu haben. Die hält mindestens bis zum nächsten fru¬ 
strierten Enttäuschungsschrei vor dem Computer an. 


(Stephan Keller/rg) 


Lösung: Gruds 
in Space 

Die Schritt-für-Schritt-Lösung, Lage¬ 
pläne, eine Hiifsliste und die be¬ 
nötigten Koordinaten werden Sie der 
Lösung von »Gruds in Space« näher¬ 
bringen. 

Das Ziel des Spiels »Gruds in Space« ist es, den Treibstoff 
»Heliotropanite« zu finden und zu einem gestrandeten Schiff 
auf dem Pluto zu bringen. Dazu muß man jedoch vorher um¬ 
fangreiche Aufgaben und Probleme bewältigen, die einen oft 
zur Verzweiflung bringen können. Die Handlung spielt auf ver¬ 
schiedenen Planeten und Raumschiffen, so daß man nicht 
darum herumkommt, Lagepläne anzufertigen, da das Spiel 
über 100 verschiedene Stationen besitzt (übrigens jede mit 
Grafik). 

Nun zur Lösung. 

Ich habe meine Lösung in vier Teile aufgegliedert: 

— für die Verzweifelten: Eine Schritt-für-Schritt-Lösung, 
die die Eingaben der Reihe nach auflistet. 

— eine Liste, die für den anspruchsvolleren Abenteurer ge¬ 
eignetist, der nicht weiterkommt, aber trotzdem nicht die 
fertige Lösung präsentiert haben möchte. Sie gibt nur an, 
welche Schritte zu unternehmen sind. 

für die Könner, die faul sind, Pläne anzulegen, aber auch 
für die Anfänger ist der dritte Teil sehr wichtig: die Lage¬ 
pläne. Sie geben die örtlichen Verhältnisse auf den ver¬ 
schiedenen Planeten beziehungsweise in den Raum¬ 
schiffen wieder. 

— dann schließlich eine Übersicht über die verschiedenen 
Koordinaten, die benutzt werden müssen, um bestimm¬ 
te Orte anzufliegen und um zu teleportieren. 

Zu den Plänen ist noch zu sagen, daß sie vielleicht an man¬ 
chen Stellen etwas unübersichtlich erscheinen könnten, da 
das Spiel oft auch in der Vertikalen verläuft, was nur sehr 
schwer grafisch dargestellt werden kann. Ich habe mich für 
folgendes System entschieden: 

Die Stellen, an denen nach oben oder unten gegangen 
wird, sind auf den Plänen durch gestrichelte Pfeile darge¬ 
stellt, bei denen die Richtungen (U/D) angegeben sind. 

Der Plan des außerirdischen Raumschiffes hat noch eine 
Besonderheit an sich: Die Übergänge zu anderen Räumen 
bestehen oft aus Türen, die nur durch das Einfügen einer be¬ 
stimmten Kugel in einen Rahmen an der Tür geöffnet werden 
können. Solche Übergänge sind durch dickere, gestrichelte 
Trennwände gekennzeichnet. Ferner ist in jedem Raum auf¬ 
geführt, welche Rahmen (...sq.) beziehungsweise Kugeln 
(...orb) sich in diesem befinden. 

Einige allgemeine Tips: 

Vor allem nicht verzweifeln, wenn es mal nicht so recht 
klappt. Es ist ratsam, das Spiel zwischendurch öfter mal auf 
einer leeren Diskette abzuspeichern, da der Tod des Spielers 
möglich ist. 

Auch bei diesem Adventure heißt das Motto: Es darf gelau¬ 
fen (geflogen) werden. Also keine Mühen scheuen. 

Ein Wort zum Schluß: 

Die Lösungswege von Hilfsliste und Schritt-für-Schritt- 
Lösung stimmen nicht völlig überein, sind aber beide möglich. 
Man hat also zwei verschiedene Lösungswege zur Auswahl. 

(Joachim Conrads/rg) 
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Liste der benötigten Koordinaten 


Planet 

Koordinaten 

Teleport 

1 . 

Saturn 

64-18-52 

77-34-40 

2 . 

Venus 

96-17-14 

82-13-64 

3. 

außerird.Schiff 

96-17-14 

66-12-15 

4. 

Titan 

70-10-24 

14-93-96 

5. 

Pluto 

18-98-32 

34-76-21 

6 . 

Erde 

53-42-75 

66-43-44 



Die Hilfsliste 

Diese Hilfsliste gibt Hinweise auf die einzelnen Schritte, die zu unter¬ 
nehmen sind. Ausführung und Lösung einiger Probleme bleiben da¬ 
durch dem Spieler noch erhalten, so daß der Reiz des Adventures 
nicht vollständig zerstört wird. 

— Empfangen eines Funkspruchs 

— Flug zum Saturn 

— Seil und Münze suchen und nehmen 

— »Lord Deebo« aufsuchen (Tip: Butler < = > Trinkgeld) 

— Flug zur Venus 

— Pistole suchen 

— Mr. Green aufsuchen (Tip: eine Station vorher »HELP«) 

— »Note« übergeben 

— Flug zum Saturn 

— Von Mr. Green erhaltenen Gegenstand bei Deebo abgeben 

— In den Höhlen den versteckten Schlüssel suchen 

— Den zweiten versteckten Schlüssel suchen (Tip: BAT) 

— »Gate« öffnen und Tempel aufsuchen 

— Grüne Kugel nehmen 

— In den Höhlen blaue Kugel suchen (Tip: Square) 

— Flug zur Venus, ins außerirdische Raumschiff teleportieren 

— Durch geschicktes Vorgehen (Türen, Squares, Orbs) schwarze 
Kugel finden (Lageplan: dieser Teil ist sehr schwierig) 

— Flug zum Saturn 

— »Hill« aufsuchen und den Arier verjagen 

— Höhle des Ariers betreten (Tip: Black Orb) 

— Höhle verlassen und nochmals betreten 

— Lord Deebo 

— Flug zur Venus 

— Mr. Green aufsuchen (Tip: Trees, Gun) 

— Mit »Card« die Wohnung betreten 

— Flug zum Saturn 

— »Supply Building« aufsuchen, einen Gegenstand (Tip: der in den 
Höhlen zum Einsatz kommt) fallen lassen und dafür »02-Mask« 
kaufen (Container können nützlich sein) 

— Cafeteria aufsuchen 

— Tischbein nehmen 

— »Arier Cave« aufsuchen (Tip: erinnern Sie sich an den Felsen 
nördlich der Höhle) 

— Heliotropanite nehmen 

— Flug zur Venus 

— Mr, Green wiederbeleben 

— Flug zum Titan 

— Gegenstände nehmen 

— Funkspruch 

— Flug zum Pluto 

— Sprengen des feindlichen Schiffes 

— Teleportieren zum Pluto 

— Aufsuchen des Schiffes 

— Übergeben des Helitropanite 

— Funkspruch 

— Flug zur Erde 

— Teleportieren 

— »HELP« eingeben 

— SPIELENDE 


Schritt-für-Schritt-Lösung 

w, s, press green, press green, press green, n, d, d, w, set 64-18-52, 
w, set 77-34-40, go window, n, n, n, n, steal rope, s, w, take coin, e, 
s, e, s, s, e, knock, say yes, give coin, e, give rope, say yes, e, help, ta¬ 
ke all, w, w, w, n, w, s, go window, e, set 96-17-14, w, set 82-13-64, go 
window, e, tie rope to tree, e, d, take gun, u, w, loosen rope, take rope, 
n, e, n, shoot venusian, n, drop gun, w, give note, take money maker, 
e, take gun, s, shoot venusian, s, w, s, w, go window, e, set 64-18-52, 
w, set 77-34-40, go window, n, e, s, e, knock, e, e, give money maker, 
take rock, w, w, w, n, w, s, w, n, w, w, s, s, w, tie rope to Stalagmite, d, 
n, e, s, d, n, w, take key, e, s, u, n, w, s, u, e, u, e, n, shoot bat, u, open 
ehest, d, drop key, u, look ehest, take key, d, s, u, n, e, s, e, e, n, n, e, 
s, e, n, n, n, w, n, open gate, n, n, n, w, n, n, take green, s, s, e, s, s, s, 
s, e, s, s, s, w, n, w, s, w, n, w, w, s, s, u, n, w, drop green, take all, e, s, 

d, n, n, e, e, s, e, go window, e, set 96-17-14, w. set 66-12-15, go win¬ 
dow, e, n, drop green, take green, w, drop key, take orange, drop 
green, take green, e, s, w, drop light, e, drop green, take green, e, e, 
drop orange, take orange, e, take purple, drop blue, take blue, w, w, 
drop purple, take purple, w, w, w, drop purple, take purple, w, drop 
gun, take white, drop orange, take gun, e, e, drop gun, drop rock, e, 
drop green, take green, e, e, s, drop white, take white, w, take yellow, 
drop purple, take purple, e, n, w, drop purple, take purple, w, w, w, drop 
purple, take purple, w, take orange, s, drop white, take white, e, e, drop 
yellow, take brown, e, e, drop purple, take purple, e, n, n, drop brown, 

e, take black, drop white, w. s, w, drop purple, w, w, drop all, take rock, 
take light, take gun, take black, go window, e, set 64-18-52, w, set 
77-34-40, go window, n, e, s, e, n, n, n, w, n, n, n, n, e, s, e, shoot arler, 
u, e, drop black, e, lookscreen, w, e, take note, w, d, w, n, w, s, s, s, s, 
e, s, s, s, knock, e, e, give note, take card, w, w, w, n, w, s, go window, 
e, set 96-17-14, w, set 82-13-64, go window, e, n, e, n, shoot tree, 
drop gun, n, w, insert card, press blue, e, s, s, w, s, w, go window, e, set 
64-18-52, w, set 77-34-40, go window, n, n, e, e, drop light, look 
sign, buy mask, take mask, take coin, buy Container, take Container, 
w, w, s, s no window, e, set 96-17-14, w, set 82-13-64, go window, e, 
n, e, n, ri,insert card, revive green, press blue, e, s, s, w, s, w, go 
window, e, set 70-10-24, w, set 14-93-96, go window, n ,w, drop 
card, drop note, take bomb, e, s, e, take box, w, go window, e, look 
box, set64-18-52, w, set 77-34-40, go window, n, w, break table, ta¬ 
ke leg, e, e, s, e, n, n, n, w, n, n, n, n, e, s, e, u, n, lift rock, look hole, take 
heliotropanite, s, d, w, n, w, s, s, s, s, e, s, s, s, w, n, w, s, go window, e, 
e u, u, s, press green, n, d, d, w, set 18-98-32, w, set 34-76-21, set 
36-24-35, go window, drop bomb, go window, press red, set 
34-76-21, go window, e, u, pull lever, n, give Container, s, d, w, go 
window, e, e, u, u, s, press green, n ,d, d, w, set 53-42-75, w, set 
66-43-44, go window, help 
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Lösungen 


Lageplan außerirdisches Schiff 
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Lageplan Venus 
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Die Lösung 
von Hobbit 

Lange haben die Abenteuerspiel¬ 
freunde auf die Lösung von Hobbit 
warten müssen. Einen der möglichen 
Lösungswege, der sogar ein Ergebnis 
von 101,5 % zuläßt, wollen wir Ihnen 
hier vorstellen. 

The Hobbit ist ein Grafikadventure, bei dem es darauf ankommt 
einen Schatz zu finden. 

Eine Standard-Lösung dazu ist nicht möglich, da sich durch 
umherirrende Gestalten ständig neue Spielsituationen ergeben. 

Befehlsliste: 

Die in Klammem angegebenen Hinweise brauchen nicht mit ein¬ 
gegeben zu werden. Richtungsangaben, wie zum Beispiel »East«, 
können durch die Anfangsbuchstaben abgekürzt werden. 

START: 

OPEN DOOR, EAST NORTH, NORTH, WAiT (bis »DAY 
DAWNS«), SOUTH, GET KEY, NORTH, UNLOCK, OPEN, GO 
DOOR (Rocky door), GET ROPE, GET SWORD, SOUTH, 
SOUTH, SOUTH EAST, TALK, SAY ELROND »READ MAP« (bis 
er sie liest), EAST, NORTH, NORTHEAST, NORTH, SOUTH- 
EAST, DOWN, DOWN, DOWN, DOWN, EAST, GET KEY, UP, 
NORTH, WEST, SOUTH, EAST, 

NORTH, (nun warten Sie; bis ein Goblin Sie gefangen nimmt, 
achten Sie aber darauf, daß Gandalf oder Thorin bei ihnen sind), 
DIG SAND (in »Goblins dungeon«), BREAK TRAP WITH 
SWORD, GET KEY, SAY THORIN »CARRY, ME« (oder zu Gan¬ 
dalf), SAY THORIN »OPEN WINDOW«, SAY THORIN »GO WIN¬ 
DOW«, SOUTHWEST (als nächstes müssen Sie in dem Verlies 
der Goblins einen Ring suchen, der von Gollum bewacht wird. 
Haben Sie diesen, begeben sie sich zum Ausgang »GOBUNS 
BACKDOOR«), EAST EAST, OPEN CURTAIN, OPEN CUPBO¬ 
ARD, GET NORTHEAST, EAST, EAST, WEST, WEST, WAIT (bis 
»Wooden Elf« kommt und Sie in einem roten Kerker einsperrt) 
(Sie befinden sich nun im Kerker), WAIT (bis »SOMEONE OPEN 
RED DOOR«), GO DOOR, NORTH, WATT, SOUTH, (diese 
»NORTH-WAIT- 

SOUTH«-Kombination so lange bis »BUTLER DRINK SOME 
WINE«, dann weiter bis »BUTLER OPEN TRAP DOOR«, wenn 
»BUTLER THROWS BARREL THROUGH TRAP DOOR«, 

»JUMP BARREL« eingeben), EAST, SAY BARD »CAREFULLY, 
GO NORTH«, NORTH, NORTH, WAIT (bis »RED DRAGON« 
erscheint), SAY BARD »SHOOT DRAGON«, UP, NORTH, 

NORTH, NORTH, GET TREASURE, SOUTH, SOUTH, SOUTH, 
DOWN, SOUTH, SOUTH, (am »WATERFALL« warten Sie bis 
V\fooden-Elf kommt) so kommt man in das Elfenverlies), WAIT 
(auf »SOMEONE OPEN RED DOOR«), GO DOOR, NORTH, 
WATT WEAR RING, READ MAGIC DOOR, LOOK DOOR, WAIT 
(irgendwann öffnet sich das magische Tor), WEST (ein Spinnen¬ 
netz behindert nun den Weg, dieses Hindernis kann durch Ein¬ 
gabe von SMASH WEB beseitigt werden), (nun versuchen Sie 
an Hand der Lagekarte zum LONELAND zurückzukehren), GO 
DOOR, OPEN CHEST, PUT TREASURE. 

ENDE 

Mit Hilfe dieser Lösung sollte es möglich sein mindestens 85% 
des Adventures zu lösen. Wenn man alle Räume durchlaufen hat, 
sind sogar 101,5% drin. Übrigens der Punktestand kann mit 
»SCORE« abgefragt werden. 

Und nun viel Erfolg! 


Enchanter ist 
jetzt gelöst! 


vaxum: 

make a hostile creature your friend 

cleesh: 

change a creature into a small amphibian 

krebf: 

repair wilful damage 

rezrov: 

open even locked or enchanted Objects 

gnusto: 

write a spell Into the spell book 

blorb: 

safely protect a small object as though in an Strang box 

nitfol: 

converse with the beast in their own tongue 

frotz: 

cause something to give off light 

zifmia: 

magically summon a being 

ozmoo: 

survive unnatural death 

melbor: 

protect magic users from harm by evil beings 

gondar: 

quench an open flame 

kulcad: 

dispel a magic spell 

guncho: 

banish a victim to another plane of existance 

exex: 

make things move with greater speed 

filfre: 

infocom fire works 

izyuk: 

fly like a bird 


Bild 1. 

Eine Liste aller Zaubersprüche und ihrer Funktionen 


SE, SE, NE, S, READ SCROLL, GNUSTO REZROV, LEARN 
EZROV, SW, NW, NW, NE, N ,OPEN OVEN, GET BREAD, GET 
JUG, S, NE ,SE, NE, FILL JUG, SW, SE, E, E, REZROV GATE, E, 
FROTZ BOOK, N, N, E, E, E, E, E, LEARN REZROV. REZROV GATE, 
N, (GET SCROLL, READ IT), GNUSTO KREBF, E, LOOK UNDER 
ULY PAD, READ SCROLL, GNUSTO CLEESH, W, S, W, W W, W, W, 
S, S, S, S, E, D, OPEN DOOR, N, PULL BLOCK, E, (GET SCROLL, 
READ IT), GNUSTO EXEX, W, S, U, DROP BOOK, E, GET UGHTED 
PORTRAIT, GET SCROLL, W, GET BOOK, READ SCROLL, GNU¬ 
STO OZMOO, EAT BREAD, N, GET BOX, S, W, U, GET IN BED, 
SLEEP, GET UP, EXAMINE BEDPOST, PUSH BUTTON, (GET 
SCROLL, READ IT), GNUSTO VAXUM, D, N, N, N, N, U, GET EGG, 
LEARN REZROV, LEARN KREBF, REZROV EGG, GET SCROLL, 
KREBF SCROLL, READ SCROLL, GNUSTO ZIFMIA, D, S, S, S, S, 
E, E, E, S, LEARN NITFOL, LEARN EXEX, EXEX TURTLE, NITFOL 
TURTLE, (TURTLE, FOLLOW ME), NW, N, E, U, (TURTLE, SE GET 
SCROLL, NW. DROP SCROLL, (TURTLE, THANKS), GET SCROLL, 

D, W, W, W, N, N, E, LEARN OZMOO, OZMOO ME, DROP ALL, E, 
WAIT, D, W. GET ALL, CUT ROPE, OPEN BOX, GET VELLUM 
SCROLL, READ VELLUM SCROLL, GNUSTO MELBOR, DROP 
BOX, LEARN MELBOR, MELBOR ME, E, E, E, N, EXAMINE 
TRACKS, READ FRAYED SCROLL, GNUSTO GONDAR, N, SLEEP, 
LEARN ZIFMIA, LEARN VAXUM, (JETZT IN DEN SPIEGELSÄLEN 
AUF UND AB GEHEN BIS DER ADVENTURER ERSCHEINT, 
DANN...), ZIFMIA ADVENTURER, VAXUM ADVENTURER, (JETZT 
NACH OSTEN BIS ZUR GUARDED DOOR), POINT AT DOOR, 
LEARN CLEESH, CLEESH ADVENTURER, N, DROP DAGGER, 
GET PENCIL, GET PURPLE SCROLL, S, W, W, W, W, W, W, S, S, S, 
S, E, D, D, READ MAP, D, S, E, NE, SE, LEARN MELBOR, MELBOR 
ME, DRAW FROM F TO P, SW, SW, RUB FROM V TO M, RUB FROM 
B TO R, DRAW FROM J TO B, DROP PENCIL, DROP MAP, GET 
SCROLL, NE, NW, NW, W, DRINK WATER, DROP JUG, U, U, E, E, 

E, W, N, N, LEARN MELBOR, MELBOR ME, N, E, LEARN GONDAR, 
LEARN CLEESH, DROP BREAD, DROP, PURPLE SCROLL, E, KUL- 
CAD STAIR, IZYUK ME, E, GONDAR DRAGON, CLEESH MON¬ 
STER, GUNCHO KRILL !!!!!! 


Bild 2. Die Schritt-für-Schritt-Lösung 


(Roland Selzer/rg) 
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Strategie 


So löse ich 
Abenteuer¬ 
spiele 

Es gibt einige grundlegende Metho¬ 
den, um an die Lösungen von Aben¬ 
teuerspielen heranzugehen. 


Abenteuerspiele zu lösen bereitete schon immer Schwie¬ 
rigkeiten, besonders jemandem, der vorher noch nie mit die¬ 
ser Art von Spielen in Berührung kam. Wir helfen bei den er¬ 
sten Schritten. Die Tips, die wir hier geben, gelten nur für die 
sogenannten Text-Adventures beziehungsweise Text/Grafik- 
Abenteuer. Joystick-Abenteuer beziehungsweise Rollen¬ 
spiele sind in der Regel ganz anders zu spielen. 


Ein kurzes Wort 
zu Lösungsbüchern 


Wer sich ein Abenteuerspiel gekauft hat und absolut nicht 
damit zurecht kommt, sollte erst einmal Freunde mitspielen 
lassen, bevor er zu Lösungsbüchern greift. So macht das 
Ganze mehr Spaß. Wer dann schließlich doch zur Hilfsliteratur 
greifen muß, sollte erst einmal zwischen Lösungsbüchern 
und sogenannten »Hint Books« unterscheiden. Hints sind nur 
Tips und keine festen Lösungen. Die Hersteller verschiede¬ 
ner Adventures bieten zu ihren Spielen des öfteren solche Lö¬ 
sungshinweise an, aber auch Buch- und Zeitschriftenverlage 
haben ihre Adventure-Hacker, die dann Lösungs- bezie¬ 
hungsweise Hint Books anbieten. 

Telarium (vorher Trillium) legt zum Beispiel zu ihren Spielen 
verschlüsselte Lösungshinweise als Beigabe dazu, die man 
— um nicht »aus Versehen« zu schummeln — erst mit Hilfe 
einer Tabelle decodieren muß. 


Wie finde ich 
den Wortschatz heraus 


Bei Infocom-Abenteuerspielen, wie zum Beispiel, Suspect, 
Zork III oder Deadline kann man »Hint Books« bestellen, in de¬ 
nen Lösungshinweise mit einer Geheimtinte abgedruckt sind. 
Diese werden erst nach Überstreichen mit einem mitgeliefer¬ 
tem Spezialfilzstift sichtbar. So ist gewährleistet, daß man im¬ 
mer nur die Informationen erhält, die man tatsächlich haben 
möchte. 

Wer von der Herstellerfirma bestimmter Adventures keine 
Lösungshinweise erhalten kann, der sollte sich auch in deut¬ 


schen und amerikanischen Zeitschriften und Büchern Umse¬ 
hen; dort sind öfters Lösungen und Tips zu finden. 

Adventurespiele haben eines gemeinsam: Alle verstehen 
ihren Wortschatz mit Hilfe eines »Parsers«. Der Parser ist die 
Sprachinterpretationsroutine, die überprüft, wie der Satz auf¬ 
gebaut ist (Unterscheidung von Verben, Substantiven und 
Präpositionen, die in einer einprogrammierten Wortschatz¬ 
liste enthalten sein müssen). 

Bei den Infocom-Adventures ist fast alles möglich — tippen 
Sie einfach ein, was Sie denken. Wenn Ihr benutztes Wort 
nicht im 800 Worte großen Wortschatz enthalten ist, probie¬ 
ren Sie eben ein Synonym, das geht fast immer. 

Bei Abenteuerspielen von Telarium-Software und Windham 
Classics liegt jeweils eine Wortschatzliste bei; der Chef von 
Telarium ist selbst leidenschaftlicher Adventure-Spieler und 
haßt (nach eigenen Worten) das »Guess what word the parser 
wants to have«-Spielchen. 

Bei anderen Adventures gilt: Grundsätzlich sollte man erst 
einmal alles ausprobieren und eventuell auch in einem 
Englisch-Wörterbuch nachsehen. Wenn das nicht mehr geht, 
dann kann man noch immer mit Hilfe eines guten Maschinen- 
sprachen-Monitors oder Disk-Doktors entsprechende Wis¬ 
senslücken ausfüllen. Sehr gut geht das bei den Abenteuer¬ 
spielen von Sirius-Software; andere Abenteuer sind als 
Schutz vor solch unfairem Verhalten manchmal sehr ge¬ 
schickt codiert. In diesem Fall kann Ihnen dann nur noch ein 
gutes Vokabel-Gedächtnis helfen. 

Außerdem sollte man in der Anleitung nachsehen, ob das 
Spiel ganze Sätze oder nur Zweiwort- beziehungsweise 
Einwort-Kommandos annimmt. 


Was man beim Spielen von Adven¬ 
tures grundsätzlich beachten soll 


Wenn man in einem Raum steht, erfährt man in vielen Ad¬ 
ventures immer nur das, was man auf den ersten Blick sieht. 
Geben Sie in diesem Fall unbedingt noch den Befehl LOOK 
ein. Erst dann erfahren Sie, was bei genauerem Hinsehen zu 
entdecken ist. Gegenstände, die herumliegen, oder irgend¬ 
welche Öffnungen, Türen oder Spalten sollten Sie immer ge¬ 
nauer untersuchen. Das geht meistens mit Hilfe der Befehle 
EXAMINE OBJECT beziehungsweise INSPECT OBJECT. Um 
etwas zu durchsuchen, sollte man SEARCH IN »Gegenstand« 
oder SEARCH AT »Gegenstand« oder auch nur (je nach Par¬ 
ser des Spiels) SEARCH »Gegenstand« eintippen. 

Bei einigen Abenteuern erlaubt die Zeit oft nicht, alle vor¬ 
handenen Dinge zu untersuchen. Tun Sie das trotzdem. Im 
Lauf der Zeit werden Sie erfahren, welche Gegenstände un¬ 
nütz sind und welche Sie gebrauchen können. Sie können 
nach Ablauf der Zeit noch immer neu starten und dieses Mal 
das Untersuchen auslassen — Sie wissen ja schon vom vor¬ 
herigen Durchlauf, wie die Gegenstände aussehen und was 
sich dahinter verbirgt. 

Nehmen Sie immer nur das mit, von dem Sie glauben, daß 
Sie es brauchen. Wenn Sie später einen Gegenstand brau¬ 
chen, den Sie vorher nicht mitgenommen haben, und sich 
eventuell nicht mehr daran erinnern können, ist das natürlich 
nicht besonders vorteilhaft. Sie sollten sich deshalb alle Ge¬ 
genstände, die Sie irgendwo sehen, aufschreiben. Auch in 
den Umgebungsbeschreibungen sind oft nützliche Hinweise 
versteckt. Wenn Sie meinen, daß das der Fall ist: Auch auf¬ 
schreiben. 
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Die Umgebung sollte außerdem ständig kartographiert wer¬ 
den; darüber jedoch später mehr. 

Vor schwierigen Stellen ist es ratsam, das Spiel abzuspei¬ 
chern. Die meisten Adventures benutzen dazu den Befehl 
SAVE oder SAVE GAME, manchmal kommt man auch mit 
QUIT in ein Menü, von dem aus man sein Spiel abspeichern 
kann. Auch sonst sollte man regelmäßig seinen Spielstand 
abspeichern (]e nach Umfang und Schwierigkeitsgrad immer 
nach einem Fünftel bis einem Zehntel des Abenteuers). Bei 
extrem schweren Spielen (zum Beispiel »Sorcerer«) sollte 
man ständig abspeichern. 

In verschiedenen Abenteuerspielen sind auch ziemlich 
heimtückische Fallen eingebaut. Probieren Sie also alles, was 
Ihnen als möglich erscheint, auch wenn es noch so unlogisch 
oder abnormal ist. Beispiel: Im Adventure »The Hitchhikers 
Guide to the Galaxy« heißt es an einer Stelle, man könne nicht 
zum Ausgang hinaus. Nach dem dritten Versuch zeigt sich 
aber, daß es doch geht: Das Spiel (beziehungsweise der Pro¬ 
grammierer) gibt zu, daß gelogen wurde. Wenn Sie also mei¬ 
nen, daß Ihre Idee die einzig richtige ist, dann versuchen Sie 
es ruhig mehrmals. 

Bei zeitabhängigen Abenteuern sollten Sie außerdem nicht 
immer blind lostippen, um den Computer zu veranlassen dies 
und jenes und sonstnochwas zu tun. Sie können ja auch mal 
abwarten (WAIT-Befehl), das hilft Ihnen oft sehr weiter (zum 
Beispiel bei Hitchhikers Guide vor dem Bulldozer). 

Auch wenn das Abenteuerspiel, das Sie vielleicht gerade 
spielen, ganze Sätze versteht, können Sie sich durch Abkür¬ 
zungen eine Menge Zeit ersparen. Tippen Sie als Abkürzun¬ 
gen für die Himmelsrichtungen also immer nur S, W, E, N, SW, 
SO, NW, NO und für aufwärts und abwärts U und D. Arbeiten 
Sie mit einem Ganz-Satz-Adventure genau so, als ob es einen 
Zwei wort-Parser hätte. 

Beachten Sie, daß Gegenstände manipuliert werden kön¬ 
nen oder einen bestimmten Inhalt haben. Sie können außer¬ 
dem spezielle Eigenschaften haben. Das Schwert aus Zork 
leuchtet zum Beispiel blau, wenn Gefahr droht, und rot, wenn 
der Träger des Schwertes wütend ist. Tatsachen wie diese 
sollte man immer ausnützen, sie helfen oft enorm bei der Lö¬ 
sung einiger hart zu knackender Nüsse. 

Es ist sehr selten, daß es mehrere Wege gibt, ein Problem 
zu lösen. Wenn Sie beispielsweise einen Gegenstand an ei¬ 
ner Stelle benutzen, an der es auch anders geht und später ei¬ 
nen Punkt erreichen, an dem dieser Gegenstand unbedingt 
benötigt wird, aber schon von der vorherigen Benutzung ab¬ 
genutzt, verbraucht oder kaputt ist, dann können Sie sich (im 
Adventure) begraben. Denken Sie also immer logisch nach, 
was Sie wo brauchen und wie Sie es sinnvoll einsetzen. Bei 
den meisten Abenteuerspielen ist ein sinnvoller Einsatz eines 
Gegenstandes immer nur einmal möglich (abgesehen von 
ständig benutzbaren Dingen wie Schlüssel oder Kerzen). 
Wenn nur eine bestimmte Zahl von Gegenständen zu tragen 
erlaubt ist, sollten Sie die schon sinnvoll genutzten Dinge wie¬ 
der ablegen. Speichern Sie allerdings davor den Spielstand 
ab, da es in seltenen Fällen möglich sein kann, daß der Gegen¬ 
stand doch noch einmal zum Einsatz kommen kann. 

Die meisten Abenteuer haben übrigens ihre spezielle »Art 
des Hauses«. Das heißt: Je nach Herstellerfirma muß man 
mehr oder weniger logisch denken. Falls Sie beispielsweise 
mal ein Exemplar eines Adventures von Screenplay in die 
Hände bekommen, müssen Sie sich zu dessen Lösung in die 
chaotischen Gehirnwindungen eines Verrückten hineinden¬ 
ken und immer das Gegenteil von dem tun, was Sie eigentlich 
tun wollten. 

Bei Adventures von Tellarium kommen Sie nur weiter, wenn 
Sie ein Feingefühl für Einzelsituationen besitzen. 

Abenteuer von Sirius-Software sind extrem logisch aufge¬ 
baut, Infocom-Adventures dagegen bestehen aus einer idea- 

030 ? 


len Mischung von Intuition und Logik (etwa 80% logische Ge¬ 
sichtspunkte). 

Soweit einige allgemein wichtige Gesichtspunkte. 


Das Kartographieren 


ln jedem Abenteuer sollten Sie mitzeichnen, auch wenn Ih¬ 
nen die beschriebene Umgebung noch so gut im Gedächtnis 
bleibt — irgendwann kommen Sie ja doch durcheinander. 

Es gibt verschiedene Verfahren, sich Karten und Umge¬ 
bungspläne zu machen (eine ist ausführlich im Kurs für Aben¬ 
teuerspiele beschrieben). Wenn Sie ein Abenteuer haben, 
das keine schrägen Richtungen wie Südwest oder Nordost 
besitzt (beispielsweise in einem Haus mit viereckigen Räu¬ 
men), ist es am einfachsten und am platzsparendsten, wenn 
Sie sich ein kariertes Blatt Papier nehmen. Nehmen Sie ein¬ 
fach immer ein vier Karo großes Quadrat als Raum und setzen 
Sie diese Räume direkt nebeneinander. Verbindungen zwi¬ 
schen Räumen kann man mit einfachen Strichen zwischen 
den Quadraten illustrieren. Beschreibungen des Raumes 
sind nicht unbedingt für die Karte notwendig, wichtige Einzel¬ 
heiten und vorkommende Gegenstände sollten Sie aber in die 
Quadrate einschreiben. Wenn in den Quadraten nicht ausrei¬ 
chend Platz für solch elementare Dinge ist, brauchen Sie die 
Räume einfach nur durchzunumerieren und sich die Gegen¬ 
stände auf ein extra Blatt zu notieren. 

Wenn Richtungen wie Nordost oder Süd west im Abenteuer 
möglich sind, sollte man zwischen den einzelnen Quadraten, 
die die Räume darstellen sollen, ein wenig Platz lassen, um 
eventuelle Schrägrichtungen oder Wegbiegungen besser 
eintragei i *.u können. Wie Sie Möbel, Fenster und Türen ein¬ 
zeichnen, bleibt Ihnen überlassen. Diese Art des Kartogra- 
phierens ist beispielsweise in dem Markt & Technik-Buch »Im 
Land der Abenteuer« enthalten (Adventuretips für die gängig¬ 
sten Grafikabenteuer). 

Eine dritte, wenn auch anspruchsvollere Art des Kartogra- 
phierens ist die Frei-Hand-Zeichnung, wie sie beispielsweise 
in der Lösung zu Enchanter (März-Ausgabe von 64'er) enthal¬ 
ten ist. Hier ist sehr viel künstlerisches Geschick notwendig. 
Lange Säle können hier auch wirklich lang dargestellt werden 
und nicht nur als Vierecke mit langen Verbindungsstrichen. 
Landschaften lassen sich wenn Sie wollen, dort auch auf 
künstlerischem Wege eintragen. 

Diese Darstellungsart wird allerdings im Lauf der Zeit sehr 
unübersichtlich, wenn Sie keine genauen Daten über die Län¬ 
ge einzelner Gänge oder ähnlichem vom Adventure erhalten. 

Als idealste Methode für Profi-Abenteuerer erweisen sich 
Mischformen der oben genannten Kartographierungsarten, 
wie sie auch in den Hint Books von Infocom verwendet wer¬ 
den. 


Happy Adventuring 


Wenn Sie auch schnell an Abenteuerspielen verzweifeln 
mögen, üben Sie sich in Geduld. Wer keine Adventures spielt, 
der hat seinen naturgegebenen Forscherdrang vermutlich 
schon verloren. 

Sterben können Sie in Adventures relativ oft (Sorcerer hat 
beispielsweise 70 verschiedene Todesarten), aber Leben 
haben Sie unendlich viele. Nutzen Sie alles hier Gesagte aus, 
auch wenn es noch so unwichtig oder selbstverständlich 
erscheint. 

(M. Kohlen/rg) 
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